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Subject: ‘Preliadnary Release of Date: 6/20/72 
UNIX Implementation Pocument 


‘fhe contents of this document are incomplete and subject to rapid 
change both in subject matter end organization. The purpose of this 

release is to make the information it contains available to persons 
who have an immediete and pressing need. The sections that are 
included here contain the following information: 


Section Contents. 
E.O - E.10 Commented Hsting of UNIX operating 
system 
E.1l ‘Commented listing of UNIX shell 
E.12 Commented listing of UNIX 
initializstion program 
F System Overview 
G bata Kase Item Descriptions 
H.O ~ H.® Verbal descriptions of UNTX 


routines. 


ne Yerbsl desoribtia iregectvens Hot HAD coereceere “te. the 
listings in =.0 - E.9, However, the routines wre listed in al phebets 
order in the H sections, rather th in the order thev aprear in the 
distinge. — 


os DeFelice 


cel 


modifications to UNIX to accomedate the T4002A graphic console 


uo Page 1 add 
gks = 177 ---- / graphic input status 
gkb = 177 -<-= / graphic input buffer 
gps = 177 --—~ / graphic output status 
gpb = 177 --- / graphic output buffer 
uo Page 2 add somewhere 


dspis; 240 / graphic input interrupt vector 
uo Page 3 add at end of "set up time out routines” 
mov $ wakdsp, (r0) / time out subroutine for display 


uo Page 4 add at end of device directory 


<asp\o\o\o\o> / T4002A 

u7 Page 4,5 add to end of iopen list 
odsp / T4002A 

add program odsp below 


odsp: / open T4002A for reading or writing 


mov $100,*$gks / set interrupt enable on input 
mov $14,r1 / put np in ri (erase, home) 
jsr r0,chout / output the char 


mov $21,ri / put dei in ri (turn on joystock) 
jer r0,chout / output char 

mov $37,r1 / put us in rt (alpha mode) 

jsxr r0,chout / output char 

br sret 


/Note; a graphic block and buffer like the tty’s are not used. May 
need them when more than 1 disply is added. 


u6 Page 1 add at end of readi list 
rdsp / T4002A 
add the routine rdsp 


rdsp: / read from the graphics terminal 
mov $240,*sos / set ps to 5 


jsr r0,getc; 22 / take char off clist and put it in rit 
br 1£ / list is empty, go to sleep 

clr *sps / clear ps 

jsr rO,passc / move char to user core 


br rdsp / get next char 


mov r5,-(sp) / save r5 
jsr r0,sleep; 22 / put input process to sleep 
mov (sp)+,r5 / restore r5 
br. rdsp / try again 
_add somewhere dspi: 
Suis mien aie Rs 
dspi: / graphic display input interrupt routine 
jsr r0,setisp / save ri, r2, x3 
mov *sgkb,r1 / put char in r1 
inc *s,gks / set reader enable bit 
bic $!1177,r1 / strip char to 7 bits 
jer rO,putc; 22 / put char on the clist 
br 41£ / if full return 
/Note: char is not echoed and quit 
(fs) and interrupt (del) char are 


/ not processed 
cmp r1,$4 / char = eot 
beq 1£ 
cmp r1,$12 / char = 1f 
beg 1f 
cmpb cct+22,$15 / are there less than 15 char on the clist? 
blo retisp / yes, return 

1: jsr rO,wakeup;runq; 22 / wakeup the process that’s inputting 

br retisp / return 
us Page 3 add to bottom of writei list 


wasp / T4002A 


<add routines wdsp, chout, and wakdsp 7 


/ write routine for the T4002A graphics console 
Ja character at a time is taken out of the graphic 
/ instruction buffer and sent over to the T4002A 


wdsp: / write on the graphic display 
jsr r0,cpass / set next char from user buffer area 
/ if none, return to syswrite 
tst rt / is the character null 
beq wdsp / yes, get the next character 
jsr r0,chout / output the character 
br wdsp / get next character 


chout: / do the actual output of the character 
tstb *sgps / check for output ready 
bge chout / wait for ready 

13 
tstb toutt+12 / check time out 
bne 1b / wait for it to be 0 
movb r1,*S$gpb / output the character 
empb x1,$14 / is char ff (erase, home?) 


beq 1f£ 2 ‘ 
cempb r1r1,$30 / is char can (erase)? 
beq 1f 


cmpb 11,$5 / is char eng (digitize joystock)? 


beq 2f 


rts r0 

13 
movb $30,toutt+12 / put 500 ms delay for erase 
jsr r0,sleep; 23 / put output process to sleep 
rts r0 . 


movb $2,toutt+12 / put in 20 ms delay for joystick 
rts ro 


/ time out subroutine for display 
wakdsp: / wakeup the output process 


jsr rO, wakeup; runqgt2; 23 
rts ro 


UNIX IMPLEMENTATION 


/ ud — unix 


cold = 0 : 
orig =0 . / orig = 0. relocatable 
rkda = 177412 / Gisk address reg rk03/rk11 
rkds = 177400 / driv status reg rk03/rk11 
rkcs = 177404 / control status reg rk03 /rk11 
resr = 174000 / receiver status reg dc-11 
rebr = 174002 / receiver buffer reg ac—11 
tesr = 174004 / xmtr status reg ac=11 
tebr = 174006 / xmtr buffer reg de-11 
test = 177340 / dec tape control status te11/tus6 
teem = 177342 / dec tape command reg to11/tus6 
tewe = 177344 / word count teo11/tus6 
tcba = 177346 / bus addr te11/tu56 
tedt = 177350 / data reg tc11/tus6 
des = 177460 / arum control status rf1i/rse11 
dae = 177470 / drum address extension r£11/rs11 
lks = 177546 / clock status reg kwi1-1 
prs = 177550 / papertape reader status pci 
prb = 177552 / buffer pei 
pps = 177554 / punch status peti 
ppb = 177556 / punch buffer peti 
/ips = 177514 line printer status (future ) 
/lpb = 177516 line printer buffer (future ) 
tks = 177560 / console read status asr-33 
tkb = 177562 / read buffer | asr-33 
tps = 177564 / punch status asr-33 
tpb = 177566 / punch buffer asr-33 
ps = 177776 / processor status ; 
halt = 0 
wait = 1 
rti 22 
nproc = 16. / number of processes 
nfiles = 50. 
ntty = 8+1 
nbuf = 6 
- if cold / ignored if cold = 0 
nbuf = 2 

eendif 


core = origt40000 / specifies beginning of user’s core 
ecore = coret+20000 / specifies end of user’s core (4096 words) 


/ “BL asa nit by copy 
/ 4xy unkni;0 | bus error 
/ it £psyms0  illg intr | 
i416 unkni;0 / trace and trap (see Sec. B.1 page ) 
20,,.unkni ;0 / trap 
fe wenecic / pwr 
% s+etssyms0 / emt 
4s sysent;0 / sys 
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« = origt60 
ga,t2 tEYL 5240 / interrupt vector tty in -¢ processor level 5 
gi 06 ttyos 240 / interrupt vector tty out 
76;1tppts 5 240 / punch papertape in 
74; *pptos 240 / punch papertape out 

jt; e@lock;340 / clock interrupt vector $ processor level 7 
e = origt200 


/ lpto; 240 line printer interrupt 3; processor level 5 (future ) 
e = origt204 
drum;300 / drum interrupt $ processor level 6 
.= origt244 


tape;300 / dec tape interrupt 
disk;300 / rk03 interrupt 
e = origt300 


Of4+trev; 240; O*4+txmt; 240 / dci1 input;output interrupt vectors 


1*44+trevs 2403; 1*4+txmt; 240 
2*4+trev; 240; 2%4+txmt; 240 
3*4+t rcv; 2403 3*44+txmt; 240 
4*44¢trev; 240; 4*4+txmt; 240 
5*4+t rev; 2403; 5*4+txmt; 240 
6*4+t rev; 240; 6*4+txmt; 240 
7*4+trev; 2403 7#4+txmt; 240 


e & origt400 
/ copy in transfer vectors 


mov $ecore,sp / put pointer to ecore in the stack pointer 
jer r0,copyz; 0; 14 / clear locations 0 to 14 in core 
mov $4,r0 

clr r1 : 

mov r0,(r1)+ / put value of 4 into location 0 

mov r0,(r1)+ / put value of 4: into location 2 


mov $Sunkni,(r1)+ / put value of unkni into location 4; 
/ time out, bus error 


clr (r1)+ / put value of O into location 6 
mov Sfpsym,(r1)+ / put value of fpsym into location 10 
elr (r1)+ / put value of O into location 12 


/ clear core 
eif cold / ignored if cold = 0 
halt / halt before initializing rf file system; user has 
/ last ehance to reconsider 
eendif 


jer r0,copyz; systm; ecore / clear locations systm to ecore 
mov $sechrgt+2,clockp / intialize clockp 
/ allocate tty buffers; see H.O for description 
mov ebuffer,r0 
mov Stty+6,r1 


mov r0,(r1) 
add 6140.,r0 / tty buffers are 140. bytes long 
add $8,r1 


emp ri stty+([ntty*8] / has a buffer been assigned for each tty 


blo 1b 
/ allocate disk buffers; see H.O for description 
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mov sbufp,rt 


mov r0,(r1)+ 

add $8,r0 

mov r0,-2(r0) / bus address 

mov $-256.,-4(r0) / word count 

add $512.,r0 / buffer space 

cmp ri ,$bufptnbuftnbuf 

blo 1b , 

mov $sb0, (ri )+ / I/O queve entry drum 


mov $sb1,(r1)+ / I/O queue entry disk (mounted device) 

mov $swp,(r1)+ / I/O queve entry core image being swapped 

mov $({systm-inode]\/2,sb0+4 / sets up initial buffers per 
/ format given in 


mov $systm,sbO0+6 / memory map 
mov $-512.,sbit4 

mov sSmount , sbt +6 

mov $user, swpt6 


/ set devices to interrupt 


mov $100,*$lks / put 100 into clock status register; 
/ enables clock interrupt 


/ set up time out subroutines 


mov $touts,roO 
mov $startty,(roO)+ / if toutt = 0 call startty 
mov $pptito, (r0)+ / Lf toutt+1 = O call pptito 
tst (r0)+ / add 2 to r0 

mov Sntty-1 ,ri 


13 ; 
mov sxmtto,(r0)+ / if toutt+2 thru toutt+2+ntty=0 call xmtto 
dec ri 
bne 1b 


/ free all character blocks; see H.O for description 


mov $510 .,r2 
mov §—1 ori 


jsr r0, put 
sub $2,r2 
bgt 1b 


/ set up drum swap addresses; see H.O for description 


mov $1024.-64.,r1 / highest drum address; high 64 blks allocated 


/ to UNIX 
mov $p.dska,r2 / p.edska contains disKaddresses for processes 
1s 
sub $17.,r1 / 17 blocks per process 
mov r1,(r2)+ 
cmp r2,6p-dska+nproc+nproc 
bne ib 
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/ free rest of drum 
eif cold 
mov $128.,systm / initialize word 1 of drum superblock image; 
/ number of bytes in free storage map=128. 
mov a a ala a / init. wi 66. of superblock image; # of 
/ Byres in i-node map=64. 
13 : 
dec ri / L1 26876, ee0g34o 
jer r0,free / free block ‘rt’, ieee, set bit *ri’ in free 
/ storage map in core | 
emp r1,$34. / first drum address not in i list 
bgt 1b / if block 34 has been freed, zero i list 
/ zero i list 
1% 
dec xO / £0 = 33e,00051 
jer r0,clear / zero block ‘’r1’ on fixed head dis’ 
tst ri 
bgt 1b / if blocks 33,...,1 have all been zeroed, done. 
eendif 


/ make current program a user 


mov $41.,r0 / rootdir set to 41 and never changed 
mov r0,rootdir / rootdir is i-number of root directory 
mov r0,uecdir / u.cdir is i-number of process current directory 
mov $1,r0 
movb r0,ueuno / set process table index for this process to 1 
mov r0,mpid / initialize mpid to 1 
mov r0,p.epid / pepid identifies process 
movb r0,p.estat / process status = 1 1.@€., active 
= O free 
elf cold / = 2 waiting for a child to die 
/ = 3 terminated but not yet waited 
/ ‘for 


/ initialize inodes for special files (inodes 1 to 40.) 


mov 
13 
jer 


mov 


movb 
movb 
jer 


dec 
bgt 


$40.,r1 / set ri=i-node-number 40. 


r0,iget / read ienode ’r1’ from disk into inode area of 
/ ecceve and write modified inode out (if any). 


| $100017,i.flgs / set flags in core image of inode to indi- 


/ cate allocated, read (owner, non-owner), 
/ write (owner, non-owner) 

$1,ienlks / set no. of links = 1 

$1,i.uid / set user id of owner = 1 

r0,setimod / set imod=i to indicate i-node modified, also 

; / stuff time of modification into i-node 
r1 / next inode no. = present i-node no.-—1 
1b / has i-node 1 been initialized; no, branch 


/ initialize i-nodes r1.,e..,47. and write the root device, binary, etc., 
/ directories onto fixed head disk. user temporary, initialization prog. 


Issue D Date 


3/17/72 ID IMO.1—=1 Section E.0 Page 4 


mov 
mov 


UNIX IMPLEMENTATION 


$idata,rO / rO=base addr. of assembled directories. 


$u.off,u.fofp / pointer to u.off in uefofp (holds file 
/ offset) 


(r0)+,r1/r1=416,000,473 "O” in the assembled directory 


/ header signals last 
if - f assembled directory has been written | onto drum 
r0,imap / locate the inode map bit for i-node ‘r1’ 
mq, (x2) / set the bit to indicate the i-node is not 

/ available 
r0,iget / read inode °ri’ from disk into inode area of 

/ core and write modified i-node on drum (if any) 


(r0)+,ieflgs / set flags in core image of inode from 

/ assembled directories header 
(r0)+.ienlks / set no. of links from header 
(r0)+,ieuid / set user id of owner from header 
r0,setimod / set imod=1 to indicate inode modified: also, 

/ stuff time of modification into i-node 

(r0)+,u.count / set byte count for write call equal to 

/ size of directory 
r0,uebase / set buffer address for write to top of (directory 
u.oft / clear file offset used in ‘seek’ and ‘tell’ 
u.ecount,rO / r0 points to the header of the next directory 
rO0,writei / write the directory and i-node onto drum 
1b / do next directory 


/ next 2 instructions not executed ° during cold boot. 


13 
23 


panics 


e 
° 
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bis 
jer 


tstb 
pne 


2£30 


$2000,sb0 / sbO I/O queue entry for superblock on drum; 
/ set bit 10 to 1 
r0,ppoke / read drum superblock 


sb0+1 / has I/O request been honored (for drum)? 
4b / no, continue to idle. 


sysflg / mormally sysflag=0, indicates executing in system 

exec; 2f; 1f / generates trap interrupt; trap vector = 
sysents; 0 

panic / execute file/etc/init 


(& 
icin AFT LD wm B04 Su 4/0 


Leyes / UNIX looks for strings eens noted by nul\o 


clr 


dec 
bne 
dec 
bne 


jmp 


ps 


$0 
1b 
$5 
1b 
#$173700 / rom loader address 
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rtssyms 
mov 
mov 
mov 
mov 
bic — 
asl 


jmp 


mov 
br 


mov 
br 


mov 
br 


mov 
br 


mov 
br 


mov 


cmp 
blo 
ecnp 
bhis 
bit. 
bne 
tst 
beq 
add 
mov 
mov 
mov 
rti 
13 
rts 
rts 
rts 
rts 
rts 
rts 
rts 
rts 
badrtss: 


mov 
mov 


rpsym: 
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r0,—(sp) 
r1,-(sp) 
4(sp),r0 
~(r0),r0 
$17,r0 


Of;1£3;2£;3£;4£35£;badrts ;7£ 


2(sp),r0 
1£ . 


r2,r1 
1f 


r3,r1 
1f 


r4,r1 
1f 


r5,r1 
1£ 


8.(sp),r1 


r1,$core 
badrts 
rt ,S$ecore 
badrts 
$1,r1 
badrts 
(r1) 
badrts 
$1£,r0 
r0,4(sp) 
(sp)+,r1 
(sp)+,r0 


ro 
ri 
r2 


(sp)+,r1 
(sp)+,r0 
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jmp unkni 
eif cold 

idatas: 

/ root 
41. 
140016 
ebyte 7,1 
9f-,~-2 
41. 
<+e\0\0\0\0\0\0> 
44. 
SONG NDNONONONE? 
<dev\0\0\0\0\0> 
43. 
<pbin\0\0\0\0\0> 
44. 
<etc\0\0\0\0\0> 
45. 
<usr\0\0\0\0\0> 


46. 
<tmp\o\0\0\0\0> 
9s 


/ device directory 
42. 
140016. 
ebyte 2,1 
Oof—.-2 
41. 
Se \ONPNONONONO? 
<e\0\0\0\0\0\0\0> 
O1. 
REY ONONONONG? 
<ppt\o\0\o\0\0> 
<mem\0\0\0\0\0> 
04. 
<rf£0\0\0\0\0\0> 
05. 
<rk0\0\0\0\0\0> 
06. 
SEARO NONONO\O? 
O07. 
<tap1 \0\0\0\0> 
08. 
<tap2\0\0\0\0> 
Qe 
<tap3\0\0\0\0> | 
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93 
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Ceap4\o\0\0\o> 
<tap5\o\0\0\0> 
<eap6\0\o\o\0> 
<eap7\0\0\o\0> 
<ety0\o\o\o\o> 
<etyt\o\0\0\0> 
<ety2\0\o\o\o> 
Cety3\0\0\0\0> 
<ety4\0\0\0\0> 
ét ty5\0\0\0\0> 
Zety6\0\0\0\0> 
<ety7\0\0\0\0> 
Zipr\0\o\0\0\o> 
<ety8\o\0\0\o> / really tty 


/ binary directory - 


93 


43. 
140016 
ebyte 2 9 3 
9f—.—2 


446 
See Ong oNio no” 
<e\0\0\0\0\0\0\0> 


/ etcetra directory 


93 


44. 

140016 

ebyte 2,3 

of—.-2 

41. 
<.\O\0\0\0\0\0> 
44. 
€-\O0\0\0\0\0\0\0> 


476 
<init\o\o\0\o0> 


Issue D Date 3/17/72 ID IMO.1—1 


Section E.0 


Page 8 


UNIX IMPLEMENTATION 


/ user directory 


9: 


45. 
140016 
ebyte 2,1 
9f~.=-2 


41. 

Soe \ONOWNONONO? 
45. 
<.\0\0\0\0\0\0\0> 


/ temporary directory 


93 


46. 
140017 
ebyte 2,1 
9f~_.—2 


aie 
<;-\0\0\0\o\0\0> 
<.\0\0\0\0\0\0\0> 


/ initialization program 


13 


33 


47. 

100036 

ebyte 1 93 

9f-.-2 

sys break; 0 

sys opens; 6f-8btcore; 0 
mov r0,r1 . 

sys seek; 653; 0 

mov r1,xr0 

sys read; 9f-8btcore; 512. 
mov 9f,xr5 / size 
beg 1£ 

sys creat; 9f-Sbtcoret4; O 
mov r0,r2 


movb 9f+2,0f 


sys chmod; 9f-8b+core+4; Oteec 


movb 9f+3,0f 


sys chown; 9f-8b+coret4; Ose. 
tst r5 

beq 2f. 

mov r1,r0 

sys read; 9f-Sbtcore; 512. 


mov $512.,0f 
cmp r5,$512. 
bhi 3f 

mov r5,0f 
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mov r2,r0 
sys write; 9f-8btcores Ot. 
sub r0,xr5 
br 2b 
2: 
mov r2 9rO 
sys close 
br 1b 
1s 
mov r1,r0 
sys close 
sys execs; 5f-Sbtcore; 4f-8btcore 
sys exit 


_ Se rceee 47 se Saale te 
oa </éet/ni toy hy PLT as C7 The. ee Z 
$ </dev/tap0\o> of This cl om oll FT 


even 
93 


/ end of initialization data 
8) 
eendift 
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Jui — unix 


unkni: / used for all system calls 

sysent: 
incb sysflg / indicate a system routine is 
beq 1£ / in progress 
jmp panic / called if trap inside costat 


mov $s.systt+2,clockp 

mov r0,-(sp) / gave user registers 

mov sp,uer0 / pointer to bottom of users stack in u.r0 
mov r1,-(sp 

mov r2,-(sp) 

mov r3,-(sp) 

mov r4,-(sp) 

mov r5,-(sp) i - Ms 6 

mov ac,—(sp) accumulator register for extended 


/ 
/ arithmetic unit 

mov mq,-(sp) / “multiplier quotient” register for the 
/ extended arithmetic unit 
/ “step count’ register for the extended 


mov sc,—(sp) 
/ arithmetic unit 


mov sp,u.esp / uesp points to top of users stack 
mov 18. (sp), r0 / store pe in r0 

mov ~(r0),r0 / sys inst in r0O 10400xxx 

sub $sys,rO / get xxx code 


asl r0 / multiply by 2 to jump indirect in bytes 
emp r0,$2f-1f / limit of table (35) exceeded 
bhis padsys / yes, bad system call 
bic $341,20.(sp) / set users processor priority to 0 and clear 
/ carry bit 
jmp *1£(r0) / jump indirect thru table of addresses 
: to proper system routine. 
13 ; 
sysrele / 0 
sysexit / 1 
sys’ork / 2 
sysread / 3 
syswrite / 4 
sysopen / 5 
sysclose / 6 
syswait / 7 
syscreat / 8 
syslink / 9 
sysunlink 7 10 
sysexec / 11 
syschdir / 12 
systime / 13 
sysmkdir / 14 
syschmod / 
syschown / 16 
sysbreak / 
sysstat / 18 
sysseek / 19 
systell / 20 
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errors 


sysret: 


sysreles 


13 
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sysmount / 2 
sysumount ra 
syssetuid / 2 
sysgetuid / a 
sysstime / 25 
sysquit / 26 
sysintr / 27 
sysfstat / 28 


sysemt 


/ 29 


sysmdate / 30 
sysstty / 31 
sysgtty / 32 
sysilgins / 33 


mov . 


bis 


tstb 
bne 
mov 
clr 
jer 


tstb 
beq 
clrb 
bis 


jex 
tstb 
beq 
clrb 
movb 
bis 
jer 


tstb 
bne 


jsr 


uesp,ri 
$1,20.(r1) / set ¢ bit in processor status word below 
/ users stack 


uebsys / is a process about to be terminated because 
sysexit / of an error? yes, go to sysexit 


uesp,sp / no point stack to users stack 


ri / zero ri to check last mentioned i-node 
r0,iget / if last mentioned i-node has been modified 
/ it is written out 
smod / has the super block been modified 
1£ / no, 1f£ 
smod / yes, clear smod 
$1000,sbO / set write bit in I/O queue for super block 
_/ output 
xr0,ppoke / write out modified super block to disk 


mmod / has the super block for the dismountable file 
/ system 
1f / been modified? no, 1f 
mmod / yes, clear mmod 
mntd,sb1 / set the I/O queue 
$1000, sb1 / set write bit in I/O queue for detached sb 
r0,ppoke / write it out to its device 


uquant / is the time quantum 07 
1£ / no, don’t swap it out 


r0,tswap / yes, swap it out 


(sp)+,sc / restore user registers 
(sp) +,mq 
sp)+,ac 
sp)+,r5 
(sp)+,r4 
sp)+,r3 
sp)+,r2 
(sp)+,r1 


3/17/72 
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mov (sp)+,r0 
mov $s .echrgt+2,clockp 
decb sysflg / turn system flag off 
jer rO,isintr / is there an interrupt from the user 
br intract / yes, output gets flushed, take interrupt 
action 
rti / no return from interrupt 
badsys? 
incb u.bsys / turn on the user’s bad system flag 
mov $3f,u.enamep / point u.namep to core\0\0 
jer rO,namei / get the i-number for the core image file 
br 1f / error . 
neg r1 / negate the i-number to open the core image file 
/ for.writing 
jer r0,iopen / open the core image file 
jer r0,itrunc / free all associated blocks 
br 2f 
13 , : 
Mov $17,r1 / put i-node mode (17) in r1 
jsr rO,maknod / make an i~node 
mov uedirbuf,r1 / put i-nodes number in r1 
2% 
mov $core,u.base / move address core to u.base 
mov secore-core,uecount / put the byte count in u.count 
mov $u.off,u.efofp / more user offset to u.fofp 
clr u,off / clear user offset . 
jer rO,writei / write out the core image to the user 
mov Suser,uebase / pt. u.base to user 
mov $64.,u.count / u.ecount = 64 
jsr r0,writei / write out all the user parameters 
neg ri / make i-number positive 
jer r0,iclose / close the core image file — 
br sysexit / 
3% ~ 
<core\0\0> 
sysexit: / terminate process 
clr ueintr / clear interrupt control word 
clr ri / clear ri 
1: / r1 has file descriptor (index to u.efp list) Search the whole list 
jsxr r0,fclose / close all files the process opened 
br .+2 / ignore error return 
ine ri / increment file descriptor 
cmp 1,810. / end of u.fp list? 
blt 1b / no, go back . 
movb u.uno,r1 / yes, move dying process’s number to r1 
‘elrb°  p.stat-1(r1) / free the process 
asl ri / use r1 for index into the below tables 
mov pepid~2(r1),r3 / move dying process’s name to r3 
mov p.ppid-2(r1),r4 / move its parents name to r4 
clr r2 
clr r5 / initialize reg 
1: / find children of this dying process, if they are ‘zombies, free them 
add $2,r2 / search parent process table for dying process’s name 
emp peppid-2(r2),r3 / found it? , 
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bne 3f / no 


asr r2 / yes, it is a parent 
empb p.stat-1(r2),$3 / is the child of this dying process a 
/ zombie 


bne 2£ / no 
Clrb  p.stat-1(r2) / yes, free the child process 


asl r2 
3: / search the process name table for the dying process’s parent 
cmp p.epid-2(r2),r4 / found it? 
“bne 3£ / no 
mov r2,r5 / yes, put index to p.pid table (parents 
/ process # x2) in r5 ri 


emp r2,$nproc+nproc / has whole table been searched? 

blt 1b / no, go back 

mov . xr5,r1 / yes, r1 now has parents process # x2 

beq 2f / no parent has been found. The process just dies 
asr ri / set up index to pestat 


movb p.stat-1(r1),r2 / move status of parent to r2 
beq 2f / if its been freed, 2f 
emp r2,$3 / is parent a zombie? 
beq 2£ / yes, 2f 
movb u.uno,r3 / move dying process’s number to r3 
movb $3,p.stat-1(r3) / make the process.a zombie 
emp r2,$2 / is the parent waiting for this child to die 
bne 2f / yes, notify parent not to wait any more 
decb p.stat-t (rt) / awaken it by putting it (parent) 
mov $rung+4,r2 / on the rung 
: jsr r0, putlu 

2: / the process dies a . 5 
clrb ueuno / put zero as the process number, so swap will 
jsxr x0,swap / overwrite process with another process 
fe) / and thereby kill it; halt? 


intract: / interrupt action 
emp #(sp),¢rti / are you in a clock interrupt? 
bne 4£ / no, if 
cmp (sp)+,(sp)+ / pop clock pointer 

4: / now in user area 
mov ri,-(sp) / save rt 
mov uettyp,r1 / pointer to tty buffer in control to Ff. 
empb 6(r1),$177 / is the interrupt char equal to del 
beq 1f / yes, 1£ 
clrb 6(r1) / no, clear the byte (must be a quit character) 
mov (sp)+,r1 / restore r1 
clr uequit / clear quit flag 
bis $20,2(sp) / set trace for quit (sets t bit of ps-trace trap) 
rti / return from interrupt 

1: / interrupt char = del 
clrb 6(ri) / clear the interrupt byte in the buffer 


mov (sp)+,r1 / restore ri 

cmp ueintr,$core / should control be transferred to loc core? 
blo 1f£ 

jmp *u,intr / user to do rti yes, transfer to loc core 


13 
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4 / exit 


syswait: / wait for a process to die 


movb 
asl 
mov 
elr 
elr 


- add 


cmp 
bne 
ine 
asr 
cempb 
bne 
eclrb 
asl 
mov 
br 


asl 


emp 
blt 
tst 


beq 
movb 


incb 
jsr 
br 


errort $ 
jmp 

sysretis 
jmp 


u.euno,ri / put parents process number in r1 
x1 / x2 to get index into p.pid table 
pepid-2(r1),r1 / get the name of this process 
r2 

r3 / initialize reg 3 


$2,r2 / use r2 for index into p.ppid table / search table 
of parent processes for this process name 

p.ppid-2(r2),r1 / r2 will contain the childs process number 

3£ / branch if no match of parent process name 

r3 / yes, a match, r3 indicates number of children 

r2 / r2/2 to get index to p.stat table 

p.estat-1(r2),63 / is the child process a zombie? 

2£ / no, skip it 

p.stat-1(r2) / yes, free it 

r2 / r2x2 to get index into p.pid table 

pepid-2(r2),*uer0 / put childs process name in (u.r0) 

sysret1 / return cause child is dead 


r2 / r2x2 to get index into p.eppid table 


r2,$nproctnproc / have all processes been checked? 
4b / no, continue search | 
r3 / one gets here if there are no children or children 
/ that are still active 
error1 / there are no children, error 
ueuno,r / there are children so put parent process number 
in ri 


pestat-1(r1) / it is waiting for other children to die 


r0,swap / swap it out, because it’s waiting 
syswait / wait on next process 


error / see ‘error’ routine 


sysret / see “sysret’ routine 


sysfork: / create a new process 


clr 


ri 


41: / search p.stat table for unused process number 


ine 
tstb 
beq 
emp 
blt 
add 


br 
movb 


movb 
incb 
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ri 

pestat-1(ri1) / is process active, unused, dead 

1f / it’s unused so branch 

r1,$nproc / all processes checked 

1b / no, branch back 

$2,18.(sp) / add 2 to pe when trap occured, points 
/ to old process return 

errori1 / no room for @ new process 


u.uno,-(sp) / save parent process number 

ri1,ueuno / set child process number to r1 
pestat-1(r1) / set pestat entry for child process t 
/ active status 
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mov u.ettyp,r2 / put pointer to parent process’ control tty 
/ buffer in r2 

beq 2f / branch, if no such tty assigned 

clrb 6(r2) / clear interrupt character in tty buffer 


mov $rung+4,r2 

jer r0,putlu / put child process on lowest priority run queue 
asl ri / multiply r1 by 2 to get index into p.pid table 

inc mpia / increment mepid; get a new process name 

mov. mpid,p.epid-2(r1) / put new process name in child process’ 


/ name slot 
movb (sp),r2 / put parent process number in r2 
asl r2 / multiply by 2 to get index into below tables 


mov pepid-2(r2),r2 / get process name of parent process 

mov r2,pppid-2(r1) / put parent process name in parent 
process slot for child 

mov r2,*u.r0 / put parent process name on stack at location 


/ where r0O was saved 

mov $sysretis(sp) / 

mov sp,ueusp / contents of sp at the time when user is 
/ swapped out 

mov $sstack,sp / point sp to swapping stack space 


jsxr r0,wswap / put child proce:s out on drum 

jer r0,unpack / unpack user stack 

mov ueusp,sp / restore user stack pointer 

tst  (sp)+ / bump stack pointer 

movb (sp)+,u.uno / put parent process number in u.uno 

mov mpid,#u.r0 / put child process name on stack where r0 


/ was saved 
add $2,18.(sp) / add 2 to pe on stack; gives Berenc 
/ process return 
clr r1 
1: / search u.fp list to find the files opened by'the parent process 
movb u.fp(ri),r2 / get an open file for this process 
beq 2f / file has not been opened by parent, so branch 
asl r2 / multiply by 8 
asl r2 / to get index into fsp table 
asl r2 
incb fsp—2(r2) / increment number of processes using file, 
/ because child will now be using this file 


inc ri / cet next open file 

cmp r1,$10. / 10. files is the maximum number which can be 
/ opened 

blt 4b / check next entry 

br sysreti 


sysread: 
jer r0,rw1 / get i-number of file to be read into r1 
tst ri / negative i-number? 


ble error! / yes, error 1 to read it should be positive 
jer r0 ,readi / read data into core 
br 1f 
 syswrites 
jax xr0,rwi / get i-number in r1 of file to write 
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tst — 


bge 
neg 
jsr 


mov 
br 


jsr 
jsxr 
mov 
jsr 
rts 


sysopens: 

; jer 
jsr 
br 
tst 
beq 
neg 

13 
jsr 
tst 
beq 


op0: 
neg 
opis 
clr 
clr 


UNIX IMPLEMENTATION 


x1 / positive i-number ? 

errori / yes, error 1 negative i-number means write 
r1 / make it positive 

rO,writei / write data 


uerread,*u.rd / put no. of bytes transferred into (u.r0) 
sysreti 


r0,arg; uebase / get buffer pointer 

r0,arg; uecount / get no. of characters 

*u.r0,r1 / put file descriptor (index to u.fp table) in ri 
r0,get£ / get i-number of the file in r1 

ro 


r0,arg2 / get sys args into u.namep and on stack 

rO,namei / ienumber of file in ri‘ 

error2 / file not found 

(sp) / is mode = 0 (2nd arg of calls; 0 means, open for read) 
1£ / yes, leave i-number positive 

r1 / open for writing so make i-number negative 


' £0,icepen / open file whose i-number is in ri 


(sp)+ / pop the stack and test the mode 
opi / is open for read op! 
ri / make i-number positive if open for writing 


r2 / clear registers 
x3 


4: / scan the list of entries in fsp table 


tstb 


beg 
inc 
emp 
blt 
br 


tst 
beg 
add 
cmp 
bit 
br 
1: / r2 has 
mov 
mov 


clr 
clr 
asr 
asr 
asr 
inc 
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uefp(r2) / test the entry in the u.fp list 
1£ / 4f byte in list is 0 branch 

r2 / bump r2 so next byte can be checked 
r2,$10. / reached end of list? 

4b / no, go back 

error2 / yes; error (no files open) 


fsp(r3) / scan fsp entries 

4f / if O branch 

$8.,r3 / add 8 to r3 to bump it to next entry mfsp table 
r3,$[(nfiles*8.] / done scanning 

1b / no, back 

error2 / yes, error 


index to u.fp lists r3, has index to fsp table 


r1,fsp(r3) / put i-number of open file into next available 
cane fanenles) / entry in fsp table, put # of device in 

. / next word 

fspt+4(r3) . 


fspt6(r3) / clear the next two words 

33 / divide by 8 to get number of the fsp entry-1 
obs / add 1 to get fsp entry number 
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error2: 
jmp 
sysret23 
jmp 


syscreat: / 
jsxr 
jar 


UNIX IMPLEMENTATION 


‘y3,u.fp(r2) / move entry number into next available slot 
/ in u.fp list 

r2,*u.r0 / move index to u.efp list into r0 loc on stack 

sysret2 


error / see ‘error’ routine 
sysret / see ‘sysret’ routine 


name; mode 
r0 yarg2 / put file name in u.namep put mode on stack 
r0,namei / get the i-number 
br 2f£ / if file doesn’t exist 2£ 
ri / if file already exists make i-number negative 
/ (open for writing) 
r0,iopen / 
rO,itrunc / truncate to 0 length 
opo 


2: / file doesn’t exist 


mov 
bic 
jsr 
mov 
br 


sysmkdir: / 
jex 
jer 


br 


(sp)+,ri / put the mode in r1 

$1377,r1 / clear upper byte 

r0,maknod / make an i-node for this file 
uedirbuf,ri / put i-number for this new file in r1 
op0 / open the file 


make a directory 
r0,arg2 / point u.namep to the file name 
rO,namei / get the i-number 
br .t4 / if file not found branch around error 
error2 / directory already exists (error) 


tstb u.euid / is user the super user 


bne 
mov 
bic 
bis 
jsr 
br 


sysclose: / 
mov 
jsr 
br 


sysemts: 


br 


error2 / no, not allowed 

(sp)+,r1 / put the mode in rt 

$1317,r1 / all but su and ex 

$40000,r1 / Girectory flag 

rO0,maknod / make the ienode for the directory 
sysret2 / 


close the file 
*u.r0,r1 / move index to u.efp list into r1 
r0,fclose / close the file 
‘br error2 / unknown file descriptor 
sysret2 


r0,arg; 30 / put the argument of the sysemt call in loc 30 

30,$core / was the argument a lower address than core 

1£ "/ yes, rtssym 

30,$ecore / no, wag it higher than “core” and less than 
ecore™ 

2f / yes, sysret2 


$rtssym,30 
sysret2 
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sysilgins: / calculate proper illegal instruction trap address 
jer r0,arg; 10 / take address from sysilgins call » put 
/ it in loc Bes 
emp 10,$core / making it the illegal instruction trap address 


blo 1f / is the address a user core address? yes, go to 2f 
cmp 10,$ecore 
blo 2f 


mov $fpsym,10 / no, make ‘fpsum’ the illegal instruction trap 
/ address for the system 


23 
br sysret2 / return to the caller via ‘sysret’ 
sysmdate: / change the modification time of a file 
jsxr r0,arg; uenamep / point u.enamep to the file name 
jer rO,namei / get its i-number 


br error2 / no, such file 
jsr r0,iget / get i-node into core 
empb u.euid,i.euid / is user same as owner 
beq 1f / yes 
tstb u.uid / no, is user the super user 


bne error2 / no, error 
13 
jer r0,setimod / fill in modification data, time etc. 
mov 4(sp),iemtim / move present time to 
mov 2(sp),iemtim+2 / modification time 
br sysret2 


sysstty: / set mode of typewriter; 3 consequtive word arguments . 
jer r0,gtty / r1 will have offset to tty block, r2 has source 
mov r2,-(sp) 
mov ri,-(sp) / put r1 and r2 on the stack 

4: / flush the clist wait till typewriter is quiescent 
mov (sp),r1 / restore r1 to tty block offset 
movb ttyt3(r1),0f / put ce offset into getce argument 
mov $240,*$ps / set processor priority to 5 
jsr r0,getc; O:../ put character from clist in r1 

br .+4 / list empty, skip branch 
br 1b / get another character until list is empty 
mov Ob,r1 / move cc offset to r1 
inc ri / bump it for output clist 
tstb cc(r1) /is ito © 
beq 1£ / yes, no characters to output 


mov r1,0f / no, put offset in sleep arg 
jer r0,sleep; O:.. / put tty output process to sleep 
br 1b / try to calm it down again 
mov (sp)+,r1 
mov (sp)+,r2 / restore registers 
mov (r2)+,r3 / put reader control status in r3 
beq if / if 0, 1£ 
mov x3,resr(r1) / move r.c. status to reader control status 
/ register 
13 
mov (r2)+,r3 / move pointer control status to r3 
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beq 14 / if 0 1£ 

mov r3,tesr(r1) / move p.c. status to printer control status reg 
13 

mov (r2)+,tty+4(r1) / move to flag byte of tty block 

jmp sysret2 / return to user 


sysgtty: / get status of typewriter; 3 consequtive word arguments 
jex r0,gtty / ri will have offset to tty block, r2 has 
/ destination 


mov resr(r1),(r2)+ / put reader control status in 1st word 
‘/ of dest 

mov tesr(r1),(r2)+ / put printer control status in 2nd word 
/ of dest 

mov tty+4(r1),(r2)+ / put mode in 3rd word 

jmp sysret2 / return to user 


jer rO,arg; u.eoff / put first arg in u.cff 

mov *u.er0,r1 / put file descriptor in ri 

jsxr r0,getf / get the i-number of the file 

tst ri / is it open for reading 

bgt 1£ / yes 

neg ri / no, i-number is negative, so make it positive 


sub $14.,r1 / get i-number of tty0 

cmp r1,$ntty-1 / is there such a typewriter 

bhis error9 / no, error 

asl ri / O%2 

asl ri / 0%4 / yes 

asl r1 / 0%8 / multiply by 8 so r1 points to tty block 
mov ueoff,r2 / put argument in r2 

rts r0 / return 
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syslink: / name1, name2 


jsx 
jer 


br 

jer 
mov 
mov 


mov 
jer 
jsr 


br 

cmp 
bne 
mov 
jsr 


mov 
jsxr 
inecb 
jer 


sysret9: 
jmp 
error9: 
jmp 


r0,arg2 / u.enamep has 1st arg u.off has 2nd 

rO,namei / find the i-number associated with the 1st 
/ path name 

error9 / cannot be found 

r0,iget / get the i-node into core 

(sp)+,u.enamep / u.enamep points to 2nd name 

r1,-(sp) / put i-number of name1 on the stack (a link 
/ to this file is to be created) 

cdev,-(sp) / put i-nodes device on the stack 

r0,isdir / is it a directory 

rO0,namei / no, get i-number of name2 

br .+4 / not found so ri-i-number of current directory 

ii = ienumber of current directory 

error9 / file already exists., error 

(sp)+,cadev / u.dirp now points to end of current dir 

error9 

(sp),u.dirbuf / i-number of name1 into u.dirbuf 

rO,mkdir / make directory entry for name2 in current 
/ directory 

(sp)+,r1 / ri has i-number of name 

r0,iget / get i-node into core 

ienlks / add 1 to its number of links 

r,setimod / set the i-node modified flag 


sysret / see “‘sysret’ routine 


error / see ‘error’ routine 


isdir: / if the i-node whose i-number is in r1 is a directory there is an 
/ error unless super user ‘made the call 


tstb 
beg 
mov 
jsr 
bit 
. bne 
mov 
jsr 


rts 


u.uid / super user 

1f / yes, don’t care 

ii,-(sp) / put current i-number on stack 
r0,iget / get i-node into core (i-number in r1) 
$40000,i.flgs / is it a directory 

error9 / yes, error 

(sp)+,r1 / no, put current i-number in r1 (ii) 
r0,iget / get it back in 


r0 


sysunlink: / name — remove link name 


jsr 
jsr 


mov 
jsr 
clr 


sub 
jer 
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r0,arg; u.namep / u.namep points to name 
rO0,namei / find the i-number associated with the path name 
br error9 / not found 
ri,-(sp) / put its i-number on the stack 
r0,isdir / is it a directory 
u.dirbuf / no, clear the location that will get written 
/ into the i-number portion of the entry 
$10.,u.0ff / move u.,off back 1 directory entry 
rO0,wdir / free the directory entry 
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mov (sp)+,r1 / get i-number back 

Bi r0,iget / get i-node 

jsxr r0,setimod / set modified flag 

decb ienlks / decrement the number of links 


bgt sysret9 / if this was not the last link to file return 

jer rO,anyi / if it was, see if anyone has it open. Then 
/ free contents of file and destroy it. 

br sysret9 


mkdir: 
jer r0,copyz; u.dirbuf+2; u.dirbuf+10. / clear this 
mov uenamep,r2 / r2 points to name of directory entry 
mov $u.dirbuf+2,r3 / r3 points to u.dirbuf+2 
4: / put characters in the directory name in u.dirbuf+2 - u.dirbuf+10 
movb (r2)+,r1 / move character in name to r1 
beq 1f / if null, done , 
emp ri,s’/ /is ita /? 


beg error? / yes, error 
cmp r3,$u.dirbuf+10. / have we reached the last slot for 
/ a char? 


beq 1b / yes, go back 
movb r1,(r3)+ / no, put the char in the u.dirbuf 


br 4b / get next char 
13 
mov u.dirp,u.off / pointer to empty current directory slot to 
/ u.off 
wdirs 
mov $u,dirbuf,u.base / u.base points to created file name 
mov" $10.,u.count / u.count = 10 
mo: ii,r1 / r1 has i-number of current directory 
jsx rO,access; 1 / get i-node and set its file up for writing 
jer r0,writei / write into directory 
rts r0 
Ssysexec? 
jsr r0,arg2 / argO in uenamep,arg1 on top of stack 
jsr rO,namei / namei returns i-number of file named in 
/ sysexec call in r1 
br error9 


jer r0,iget / get i-node for file to be executed 

bit $20,i.flgs / is file executable 

beq error9 : 

jsr r0,iopen / gets i-node for file with i-number given in 
/ ri (opens file) 

bit $40,i.flgs / test user id on execution bit 


beq if 
tstb u.uid / test user id 
beg 1f,./ super user 
movh i.,uid,u.uid / put user id of owner of file as process 
/ user id 
1s 
mov (sp)+,r5 / r5 now contains address of list of pointers to 


/ arguments to be passed 
mov $1,u.quit / u.quit determines handling of quits; 
/ uequit = 1 take quit 
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$1,u.eintr / ueintr determines handling of interrupts; 
/ ueintr = 1 take interrupt 
mov $rtssym,*30 / emt trap vector set to take system routine 
mov sfpsym,*10 / reserved instruction trap vector set to take 
/ system routine 
mov $sstack,sp / stack space used during swapping 
mov r5,-(sp) / save arguments pointer on stack 
mov $ecore,r5 / r5 has end of core 
mov Score,c4 / r4 has start of users core 
mov r4,u.base / u.base has start of users core 
mov (sp),r2 / move arguments list pointer into r2 
13 
tst (r2)+ / argument char = “nul” 
bne ib 
test ~(r2) / decrement r2 by 2; r2 has addr of end of argument 
/ pointer list 
4: / move arguments to bottom of users core 
mov -(r2),r3 / (r3) last non zero argument ptr 
emp r2,(sp) / is r2 = beginning of argument ptr list 
blo 1f / branch to 1f when all arguments are moved 
23 
tstb (r3)+ 
bne 2b / scan argument for \O (nul) 
23 
movb -(r3),-(r5) / move aggument char by char starting at 
ecore 
cmp r3,(r2) / moved all characters in this argument 
bhi 2b / branch 2b if not 
mov r5,(r4)+ / move r5 into top of users core; r5 has 
/ pointer to nth arg 
br 1b / string 
13 
clrb -(r5) 
bic $1,r5 / make r5 even, r5 points to last word of argument 
/ strings 
mov $core,r2 
4: / move argument pointers into core following argument strings 
emp r2,xr4 
bhis 1£ / branch to 1£ when all pointers are moved 
mov (r2)4~(r5) 
br 1b 
1: 
sub score,r4 / gives number of arguments *2 
asr r4 / divide r4 by 2 to calculate the number of args stored 
mov r4,-(r5) / save number of arguments ahead of the argument 
/ pointers 
elr -(r5) / popped into ps when rti in sysrele is executed 
mov $core,-(r5) / popped into pe when rti in sysrele 
/ is executed 
mov r5,0f / load second copyz argument 
tst -(r5) / decrement r5 
mov r5,u.r0 / 
sub $16.,r5 / skip 8 words 
mov r5,u.sp / assign user stack pointer value, effectively 
zeroes all regs when sysrele is executed 
jer r0,copyz; core; 0:0 / zero user’s core 


Issue D Date 
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UNIX IMPLEMENTATION 


clr u.break 


mov r5,8p / point sp to user’s stack 

mov 614,u.count 

mov $su.off,u.fofp 

elr ueoff / set offset in file to be read to zero 

jsx rO0,readi / read in first six words of user’s file, starting 

'  f at $core 

mov sp,r5 / put users stack address in r5 

sub score+40.,r5 / subtract score +40, from r5 (leaves 
/ number of words less 26 available for 
/ program in user core 

mov r5,u.ecount / 


cmp core,$405 / br .+14 is first instruction if file is 
/ standard a.out format 

bne 1f / branch, if not standard format © 

mov coret+2,r5 / put 2nd word of users program in r53 number of 
/ bytes in program text 

sub $14,r5 / subtract 12 


cmp r5,u.ecount / 
bot - if / branch if r5 greater than u.count 
mov r5,u.ecount 
jer rO,readi / read in rest of user’s program text 
add core+10,u.enread / add size of user data area to u.nread 
br 2ft 
13 
jsr r0,readi / read in rest of file 
2¢ 
mov u.nread,u.break / set users program break to end of 
/ user code 
- adda $core+14,u.break / plus data area 
- jer r0,iclose / does nothing 
br sysret3 / return to core image at score 


sysfstat: / set status of open file 
jsr r0,arg; ueoff / put buffer address in u.off 
mov u.off,-(sp)./ put buffer address on the stack 
mov *u.r0,r1 / put file descriptor in r1 
jsr r0,getf / get the files i-number 
tst ri / is it 0? 


beq error3 / yes, error 
bgt 1f / if i-number is negative (open for writing) 
neg ri / make it positive, then branch 
br 1f / to 1f 
sysstat: / ; name of file; buffer -— get files status 
jsr r0,arg2 / get the 2 arguments 
jsx rO,namei / get the i-number for the file 


br error3 / no such file, error 


jer r0,iget /‘get the i-node into core 

mov (sp)+,r3 / move u.off to r3 (points to buffer) 
mov r1,(r3)+ / put f=-number in 1st word of buffer 
mov $inode,r2 / r2 points tc i-node 


mov (r2)+,(r3)+ / move rest of i-node to buffer 
emp r2,$inode+32 / done? 
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error3: 
jmp 
sysret3: 
jmp 


UNIX IMPLEMENTATION 


1b / no, go back 
sysret3 / return through sysret 


error / see ‘error’ routine 


sysret / see ‘sysret’ routine 


getf: / get the device number and the i-number of an open file 


cmp 
bhis 


movb 
beq 
asl 
. asl 
asl 
add 
Mov 
mov 
mov 
rts 
_nameis 
mov 


mov 
cmpb 


mov 
sub 


Issue D Date 


r1,$10. / user limited to 10 open files 
error3 / u.efp is table of users open files, index in 
/ f€sp- table 
u.efp(ri),r1 / r1 contains number of entry in fsp table 
1f / if its zero, return 
rf ’ 
ri / multiply by 8 to get index into fsp table entry 
ri 
$fsp-4,r1 / r1 is pointing at the 3rd word in the fsp entry 
ri,u.fofp / save address of 3rd word in fsp entry in u.fofp 
-(ri),cdev / remove the device numbe: cdev 
-(ri),r1 / and the i-nusber r1 


rd 


u.cdir,r1t / put the i-number of current directory in r1 
u.cdev,cdev / device number for users directory into cdev 
*u.namep,$’/ / is first char in file name a / 

if 

uenamep / go to next char 

rootdir,ri / put i-number of rootdirectory in r1 

cdev / clear device number 


*u.namep / is the character in file name a nul, , 
nig / yes, end of file name reached; branch to nig 


r0,access; 2 / get i-node with i-number r1 

$40000,i.flgs / directory i-node? 

error3 / no, got an error . 

i.size,u.dirp / put size of directory in u.dirp 

u.off / u.off is file offset used by user 

$u.off,u.fofp / u.fofp is a pointer to the offset portion 
/ of fsp entry 


$u.dirbuf,u.base / u.dirbuf holds a file name copied from 
/ a directory 
$10.,u.count / u.count is byte count for reads and writes 
r0,readi / read 10. bytes of file with i-number (ri); 
/ iee. read a directory entry 
u.enread 
nib / gives error return 
uedirbuf / 
3f / branch when active directory entry (i-node word in 
/ entry non zero) — 
u.off,u.dirp 
$10.,u.dirp 
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br 2b 
3s 
mov uenamep,r2 / uenamep points into a file name string 
mov $u.dirbuf+2,r3 / points to file name of directory entry 
33 
movb (r2)+,r4 / move a character from u.namep string into r4 
beq 3f / if char is nul, then the last char in string has been 
/, moved 
cmp r4,s’°/ / is char a </> 
beq 3f 
cmp r3,$u.dirbuf+10. / have I checked all 8 bytes of file name 
beq 3b 
empb (r3)+,r4 / compare char in u.snamep string to fi/e name 
/ char read from 
beq 3b / directory; branch if chars match 
br 2b / file names do not match go to next directory entry 
3: 
cmp r3,$u.edirbuft+10. / if equal all 8 bytes were matched 
beq 3f 
tstb os / 
bne 
33 
mov r2,uU.enamep / uenamep points to char following a f/f or nul 
mov usdirbuf, ri / move i-node number in directory entry to ri 
tst r4 /if r4 = 0 the end of file name reached, if r4 = </> 
/ then go to next directory 
bne 1b 
nig: 
tst (rO)+ / gives non-error return 
nib; 
rts r0 


syschdir: / makes the directory specified in the argument the current 
/ directory 


jsx r0,arg; uenasep / uenamep points to path name 
jer rO,namei / find its i-number 
br error3 
jer r0,access; 2 / get i-node into core 
bit 40000, i.,flgs / is it a directory? 
beq error3 / no error 
TOV r1,u.cdir / move i-number to users current directory 
mov cdev,u.cdev / move its device to users current device 
br sysret3 
-isowns 
‘jer r0,arg2 / u.enamep points to file name 
jer rO,namei / get its i-number 
br error3 
jer r0,iget / get i-node into core 
tstb usuid / super. user? 


beq 1f / yes, branch 
cmpb i.,uid,u.uid / no, is this the owner of the file 
beg 1£ / yes 
jmp error3 / no, error 
13 . 
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movb 


UNIX IMPLEMENTATION 


r0,setimod / indicates i-node has becn modified 

(sp), r2 / mode is put in r2 (u.off put on stack with 
/ 2nd arg) 

ro 


name; mode 


r0, isown / get the i-node and check user status 
$40000, ieflgs / directory? 
2f / no 
$60,r2 / su & ex / yes, clear set user id and 
/ executable modes 


r2,ieflgs / move remaining mode to 1.flgs 
1f 


syschown: / name; owner 


jer 


tstb 


beg 
bit 
bne 


movb 


jmp 
jmp 


arg: 
mov 
mov 


ada 
rts 


arg2: 
jsr 


jsr 


mov 
mov 
mov 


jmp 


systimes / get 


mov 
mov 
pr 


r0,isown / get the i-node and check user status 
u.euid / super user 

2f / yes, 2f 

$40,i.flos / no, set user id on execution? 

3£ / yes error, could create Trojan Horses 


r2,i.uid / no, put the new owners id in the i-nede 

sysret4 

error 

u.sp 

#48. ys *(r0)+ / put argument of system call into 
/ argument of arg2 or ri 


$2,18.(r1) / point pe on stack to next system argument 
r0 


r0,arg; u.enamep / uenamep contains value of first arg in 


/ sys call 
r0,arg; u.off / u.off contains value of second arg in 
/ sys call 
r0,r1 / rO points to calling routine 
(sp),rO / put operation code back in r0 
u.off,(sp) / put pointer to second argument on stack 
(r1) / return to calling routine 


time of year 

setime,4(sp) 
s.timet2, 2(sp) / put the present time on the stack 
sysretd 


sysstime: / set time 


tstb 


bne 
mov 
mov 
br 


Issue D Date 


u.euid / is user the super user 
error4 / no, error 

4(sp),s.time 

2(sp),s.etimet2 / set the system time 
sysret4 
3/17/72 
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sysbreak: / set the program break 


mov u.ebreak,r1 / move users break point to r1 

emp r1,$core / is it the same or lower than core? 
blos 1£ / yes, 1f 

cmp r1,sp / is it the same or higher than the stack? 


bhis if / yes, 1f 
bit $1,r1 / is it an odd address 
beq 2f / no, its even 
clrb (ri)+ / yes, make it even 
2: / clear area between the break point and the stack 
cmp r1,sp / is it higher or same than the stack 
bhis 1£ / yes, quit 


clr (r1)+ / clear word 
br 2b / go back 
1s Lad we 
jsr r0,arg; u.break / put the address. in u.break (set new 
/ break point) 
br sysret4 / br sysret 


maknod: / r1 contains the mode 
bis ee / allocate flag set 


mov r1,-(sp) / put mode on stack 

mov ii,r1 / move current i-number to r1 

jsr r0,access; 1 / get its i-node into core 
mov r1,-(sp) / put i-number on stack 


mov $40.,r1 / ri = 40 
1: / scan for a free i-node (next 4 instructions) 


ine ri / ri = rit 
jer r0,imap ; get byte address and bit position in inode map in 
r2 & m 


bitb mq,(r2) / is the i-node active 
bne ib / vos, try the next one 
bisb mq,(r } / no, make it activ: (put a 1 in the bit map) 


jsr r0,iget / get i-node into core 

tst i.flgs / is i-node already allocated 

bit 1b / yes, look for another one 

mov r1,u.edirbuf / no, put i-number in u.dirbuf 

mov (sp)+,r1 / get current i-number back 

jer r0,iget / get i-node in core 

jsr r0,mkdir / make a directory entry in current directory 
MOV uedirbuf,r1 / r1 = new inode number 

jsr r0,iget / get it into core 

jer r0,copyz; inode; inode+32. / 0 it out 


mov (sp)+,i.flgs / fill flags 

movb u.uid,i.uid / user id 

movb $1,i.enlks / 1 link 

mov setime,i.ctim / time created 

mov s.time+2,i.ectim+2 / time modified 
jer r0,setimod / set modified flag 


rts r0 / return 
sysseek: / moves read write pointer in an fsp entry 
jsr r0,seektell / get proper value in u.count 
add u.base,u.count / add u.base to it 
mov u.count,*u.fofp / put result into r/w pointer 
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br =~=sysret4 


systell: / get the r/w pointer 


jsr r0,seertell 

br error4 
error4: 

jmp error / see ‘error’ routine 
sysret4: , 

jmp sysret / see ‘sysret’ routine 
seektell: 

jsr r0,arg; uebase / puts offset in u.base 

jsr r0,arg;.uecount / put ptr name in u.count 

mov #u.r0,r1 / file descriptor in ri (index in u.fp list) 

jsr r0,getf / u.fofp points to 3rd word in fsp entry 

MOV r1,-(sp) / r1 has i-number of file, put it on the stack 

beq -error4 / if i=-number is 0, not active so error 

bgt +4 / if its positive jump 

neg ri / if not make it positive 

jer r0,iget / get its i-node into core 

emp u.ecount,$1 / is ptr name =1 

blt 2£ / no its zero 

beq 1f / yes its 1 

mov i.size,u.count / put number of bytes in file in u.count 

br 2 
1: / ptr name =1 

mov *u.fofp,u.ecount / put offset in u.count 
2: / ptrname =0 

mov (sp)+,r1 / i=number on stack r1 

rts r0 
sysintr: / set interrupt handling 

jer r0,arg; ueintr / put the argument in u.intr 

br 4£ / go into quit routine 
SysquiT jer rO,arg; uequit / put argument in u.quit 
13 

mov uettyp,r1 / move pointer to control tty buffer to r1 

beq sysret4 / return to user 

eclrb  6(r1) / clear the interrupt character in the tty buffer 

br sysret4 / return to user 


syssetuid;: / set process id 
movb *u.r0,ri / move process id (number) to r1 
empb r1,ueruid / is it equal to the real user id number 
beq 1£ / yes 
tstb u.uid / no, is current user the super user? 


bne error4 / no, error 
13 : 
movb ri,u.uid / put process id in u.uid 
movb r1,u.eruid / put process id in u.ruid 
br sysret4 / system return 
sysgetuid; 
movb u.ruid,*u.r0 / move the real user id to (u.r0) 
br sysret4 / system return, sysret 
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fclose: 
mov r1,-(sp) / put ri on the stack (it contains the index 
/ to u.fp list) | 
jer r0,getf / r1 contains i-number, cdev has device =, uefofp 


/ points to 3rd word of fsp entry 
tst ri / is inurber 0? 


beq 1f / yes, i-node not active so return 

tst  (r0)+ / no, jump over error return 

mov r1,r2 / move i-number to r2 

mov ' (sp),ri / restore value of ri from the stack which is 


/ index to u.fp 
clrb u.fp(r1) / clear that entry in the u.fo list 


mov u.fofp,ri / r1 points to 3rd word in fsp entry 

decbh 2(r1) / decrement the number of processes that have opened 
/ the file 

bge 1f / if all processes haven’t closed the file, return 

mov r2,-(sp) / put r2 on the stack (i-number) 


clr -4(r1) / clear 1st word of fsp entry 
tstb 3(r1) / has this file been deleted 
beg 2f / no, branch 


mov r2,r1 / yes, put i-number back into r1 
jer rO,anyi / free all blocks related to i-number 
/ check if file appears in fsp again 
23 
mov (sp)+,r1 / put i-number back into r'1 
jsxr r0,iclose / check to see if its a special file 


mov (sp)+,r1 / put index to u.fp back into r1 
rts r0 


anyi: / r1 contains an i-number 
mov $fsp,r2 / move start of fsp table to r2 


13 
cmp r1,(r2) / do ienumbers match? 
beq 1£ / yes, if 
neg ri / no complement r1 


cmp r1,(r2) / do they match now? 
beq 1£ / yes, transfer 
/ ienumbers do not match 
add $8,r2 / no, bump to next entry in fsp table 
emp r2,$fsp+[nfiles*8] / are we at last entry in the table 


blt ib / no, check next entries i~number 

tst ri / yes, no match 

bge ; ot4 

neg ri / make i-number positive 

jsxr rO,imap / get address of allocation bit in the i-map in r2 
bicb mq,(r2) / clear bit for i-node in the imap 

jsx rO,itrune / free all blocks related to i-node 

clr i.flgs / clear all flags in the i-node 

rts rO / return 


1: / 4-numbers match . 
incb 7(r2) / increment upper byte of the 4th word 
rts rO / in that fsp entry (deleted flag of fsp entry) 
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/ u3 <= unix 


tswap?: 
movb 
mov 
jsxr 

swaps 
" mov 
mov 


UNIX IMPLEMENTATION 


ueuno,ri / move users process number to r1 
$runqt+4,r2 / move lowest priority queue address to r2 
r0,putlu / create link from last user on Q to u.uno’s user 


$300,*$ps / processor priority = 6 
$rung,r2 / r2 points to rung table 


1: / search rung table for highest priority process 


tst 
bne 
emp 
bne 
jer 


br 


tst 
mov 
movb 
empb 
beq 
tst 
moviz 


br 

13 
elr 

2: / write out 

/ required 

clr 
cmpb 
beq 
mov 


mov 
mov 
mov 
tstb 
beq 
jsr 


mov 
jsr 
jsxr 
mov 


mov 


movb 
rts 


Issue D Date 


(r2)+ / are there any processes to run in this Q entry 
1£ / yes, process 1f£ 
r2,$runq+6 / if zero compare address to end of table 
ib / if not at end, go back 
r0,idle; s.,idlet+2 / waif for interrupt; all queues 

/ are empty 
swap 


-(r2) / restore pointer to right Q entry 
r2,uepri / set present user to this run queue 
(r2)+,r1 / move 1st process in queue to r1 
py ae / is there only 1 process in this Q to be run 
if yes 
-(r2) / no, pt r2 back to this Q entry 
p.link-1(r1),(r2) / move next process in line into 
/ run queve 
2f 


~(r2) / zero the entry; no processes on the Q 
core to appropriate disk area and read in new process if 


*sps / clear processor status 
r1i,u.euno / is this process the same as the process in core? 
2£ / yes, don’t have to swap 


r0,-(sp) / no, write out core; save rO (address in rout: 


/ that called swap) 
sp,ueusp / save stack pointer 
$sstack,sp / move swap stack pointer to the stack pointer 
ri1,-(sp) / put ri (new process #) on the stack 
ueuno / is the process # = 0 
1£ / yes, kill process by overwriting 
r0,wswap / write out core to disk 


(sp)+,r1 / restore r1 to new process number 

r0,rswap / read new process into core , 

rO,unpack / unpack the users stack from next to his program 
/ to its normal 


ueusp,sp / locations; restore stack pointer to new process 
/ stack 

(sp)+,r0 / put address of where the process that just got 
/ swapped in, left off., i.e., transfer control 


/ to new process 


$30.,ugquant / initialize process time quantum 
ro / return 
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WSK D3 
mov *$30,u.emt / determines handling of erts 
mov #$10,ueilgins / determines handling of illegal instructions 
mov uebreak,r2 / put process program break address in r2 
inc r2/addttoit - 
bic $1,r2 / make it even 
mov r2,u.ebreak / set break to an even location 
_mov ueusp,r3 / put users stack pte» at moment of swap in x3 
cmp r2,$core / is u.break less than $core 
blos 2£ / yes 
emp r2,r3 / no, is (u.break) greater than stack pointe 
bhis 2f / yes 
13 
mov (r3)+,(r2)+ / no, pack stack next to users program 
cmp r3,$ecore / has stack reached end of core 
bne- 1b / no, keep packing 
br 1£ / yes 
2: 
mov $ecore,r2 / put end of core in r2 
1: . 
sub $user,r2 / get number of bytes to write out (user up 
/ to end of stack gets written out) 
neg r2 / wake it negative 
asr r2 / cl ange bytes to words (divide by 2) 
MOV r2,swot4 / word count 
movb wu.uno,ri / move user process number to r1 
asl r1 / x2 for index 
mov r2,p.ebreak-2(r1) / put negative of word count into the 
/ pebreak table 
mov p.dska-2(r1),r1 / move disk address of swap area for 
é / process to ri 
mov r1,swp+2 / put processes dska address in swp +2 (block 
/ number ) 
bis $1000,swo / set it up to write (set bit 9) 
jsr r0,pooke / write process out on swap area of disk 
13 
tstb swpoti / is it done writing? 
bne ib / no, wait 
rts rO / yes, return to swap 
rswap? ; 
asl r1 / process number x2 for index 
mov pebreak-2(r1), swo+4 / word count 


mov p.dska-2(r1),swp+2 / disk address 
bis $2000,swp / read 
jer r0,ppoke / read it in 


tstb swp+1 / done 
bne 1b / no, wait for bit 15 to clear (inhibit bit) 


mov u.emt,*$30 / yes move these 
mov ue.ilgins,*610 / back 
rts rO / return 


unpack: / move stack back to its normal place 
mov uebreak,r2 / r2 points to end of user program 
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23 


emp 
blos 
cmp 


bhis 
mov 
add 
sub 


mov 
cmp 
bne 


rts 


putlus / r1 


copyz: 


idle: 


Clear: 


tstb 
beq 
movb 
movb 
br 


movb 


movb 


dec 
rts 


mov 
mov 
mov 
mov 


elr 
cmp 
blo 
mov 
mov 
rts 


mov 
clr 
mov 
mov 
1 / 
mov 
mov 
rts 


jer 


UNIX IMPL™MENTATION 


r2,$core / at beginning of user program yet? 

2f / yes, return 7 

r2,u.usp / is break above the stack pointer before 
/ swapping 

2f / yes, return 

secore,r3 / r3 points to end of core 

r3,r2 

ueusp,r2 / end of users stack is in r2 


-(r2),-(r3) / move stack back to its normal place 
r2,u.ebreak / in core 
1b 


r0 


= user process no.; r2 points to lowest priority queue 
(r2)+ / is queue empty? 
1f / yes, branch e - 
(r2),r3 / no, save the last user procesg number in, r3 
pl eyeeioen ites) / put pointer to user on last users. link 
2ft 


r1,-1(r2) / user is only user; put process no. at beginning 
/ and at end 


r1,(r2) / user process in r1 is now the last entry on 
the queue 

r2 / restore r2 

r0 


ri,-(sp) / put ri on stack 
r2,-(sp) / put r2 on stack 
(rO)+,r1 
(rO)+,r2 


(r1)+ / clear all locations between ri and r2 
r1,r2 

. tb 
(sp)+,r2 / restore r2 

(sp)+,r1 / restore r1 

rd 


*sps,-(sp) / save ps on stack 

*$ps / clear ps 

clockp,-(sp) / save clockp on stack 

(rQ)+,clockp / arg to idle in clockp 
wait for interrupt 

(sp)+,clockp / restore clockp, ps 

(sp)+,*sps 

r0 


r0,wslot / get an I/O buffer set bits 9 and 15 in first 
/ word of I/O queue r5 points to first data word 
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mov 
elr 
dec 
bgt 
jsr 


rts 
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UNIX IMPLEMENTATION 


/ in buffer 
$256.,r3 


(r5)+ / zero data word in buffer 

r3 

1b / branch until all data words in buffer are zero 

r0,dskwr / write zeroed buffer area out onto physical 
/ block specified 

rO / in x1 
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/ u4 -- unix 


setisp: 
mov r1i,-(sp) 
mov r2,-(sp) 
mov r3,-(sp) 
mov clockp,-(sp) 
mov $s.syst+2,clockp 
jmp (r0) 
clock; / interrupt from 60 cycle clock 
mov r0,-(sp) / save r0 
tst *sliks / restart clock? 
mov $s.time+2,r0 / increment the time of day 
inc rQ) 
bne 1£ 


mov clockp,rO / increment appropriate time category 
inc’ 8 (r0) 
bne 1£ 


inc -(r0) 


mov $uguant,rO / decrement user time quantum 
dechb (ro) 
bge 1f / if less than 0 
clirb (ro) / make it 0 

1: / decrement time out counts return now if priority was not 0 
cmp 4(sp),¢200 / ps greater than or equal to 200 
bge 2f / yes, check time outs 
tstb (r0O) / no, user timed out? 
bnc 1£ / no 
empb sysflg,$—-1 / yes, are we outside the system? 
bne 1£ / no, 1f£ 


mov {sp)+,r0 / yes, put users rO in r0 
sys O / sysrele 
rti 
2: / priority is high so just decrement time out counts 
mov $Stoutt,rO / rO points to beginning of time out table 


tstb (r0) / is the time out? 

beg 3f / yes, 3f (get next entry) 

decb (ro) / no, decrement the time 

bne 3£ /Isit zero now? 

incb (ro) / yes, increment the time 


inc r0 / next entry 
emp r0,$touts / end of toutt table? 
blo 2b / no, check this entry 


mov (sp)+,r0 / yes, restore rO 
rti / return from interrupt 

4: / decrement time out counts; if 0 call subroutine 
mov (sp)+,r0O / restore rO 
mov $240,*$ps / set processor priority to 5 
jsxr r0,setisp / save registers 
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mov 


tstb 
bey 
decb 
bne 
asl 
jsxr 
asr 
22 
. dec 


bge 
br 


UNIX IMPLEMENTATION 


$touts—toutt-1,r0 / sec up rO as index to decrement thru 
/ the table 


Sra / is the time out for this entry 


ria ae for / no, decrement the time 

2f / is the time 0, now 

r0 / yes, 2 x r0 to get word index for tout entry 
r0,*touts(rco) / go to appropriate routine specified in this 
rO / touts entry; set r0 back to toutt index 


ro / set up rO for next entry 
tb / finished? , no, go back 
retisp / yes, restore registers and do a rti 


ttyi: / console tty input interrupt routine 


jer r0,setisp / save reg r1, r2, x3 
mov *$tki,r1 / ri = char in tty reader buffer 
ine *stks / set the reader enable bit 
bic $1177,r1 / clear upper 9 bits of the character (strip off 
/ 8th bit of char) 
emp r1,$°a-40 / is character upper case A,eo.e, upper case Z. 
/ note that 
blt 1£ / lower case a is represented by 141, upper case by 
emp r1,$°z-40 / 1013; and lower case z by 172, upper 
/ ease Z by 132. 
bgt 1£ / if not upper case, branch 
add $40,r1 / if upper case, calculate the representation of its 
lower case counter part 
13 
cmp r1,$175 / char = "}"? Note: may be quit char (fs) 
beg 2f "Y yes 2f =e . 
emp r1,8177 / char = del ? 
beq 2£ 7 yes, 2f£ 
jsr rO,putcs 0 / put char in r1 on clist entry 
br 1£ 
movb r1,ttyoch / put char in ttyoch 
jsx r0,startty / load char in tty output data buffer 
emp r1,$4 / xi = "eot™ 
beq 1f 'y yes, if | | 
emp r1,$12 /ri= lf 
beq 1£ 7 yes 1f 
empb c¢c+0,$15. / are there less than 15 chars on the input list 
blo retisp / yes, return 
13 
jsr rO,wakeup; rung; 0 / no, wakeup the input process 
br, retisp / return 
2: / ri "1" or “delete” to get here 
mov tty+(ntty*8]-8+6,r2 / move console tty buffer address to r2 
beq 2f / if 0, wakeall | a ie 
movb r1,6(r2) / move } or del into interrupt char 
/ pyte of buffer 
2% 
jer r0,wakeall / wakeup all sleeping processes 
br retisp / return 
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wakeall: 


13 


ttyo: / 


retisp: 


ppti: / 


UNIX IMPLEMENTATION 


mov $39.,0f / £411 arg2 of wakeup call with 39 

jsr rO,wakeup; rungt4; Os. / wakeup the processes in the 
dec Ob / wait list; decrement arg2 
bge tb / if not done, go back 

rts r0 


console typewriter output interrupt. routine 


jsr r0,setisp / save registers Vem s Fe, 
jsr r0,startty / put a char en"the console tty ovtput butfer- 
br retisp / restore registers 

mov (sp)+,clockp / pop values before interrupt off the stack 
mov (sp)+,r3 

mov (sp)+,r2 

mov (sp)+,r1 

mov (sp)+,r0 

rti / return from interrupt 


paper tape input interrupt routine 
jsr r0,setisp / save registers , 
movb pptiflg,ri / place pptiflg in r1 ‘ 7 
jmp *#1£(r1) / jump to location specified by value of pptiflg 


retisp / file not open 
1£ / file just opened 

2f / file normal 

retisp / file not closed 


1: / file just opened 


/lpto: 


Issue D 


tstb “*sprst+1 / is error bit set in prs 

bge 4£ / no 

jsr r0,pptito / place 10 in toutt entry for ppt input 
br retisp 


movb  $4,pptiflg / change “pptiflg” to indicate file “normal” 


jsr rO,wakeup; rungt+2; 2 / wakeup process for ppt input entry 
/ in wlist 

tstb *sprsti / is error bit set 

blt 1f / yes 

mov *sprb,r1 / place contents ppt read buffer in r1. 

jer r0,putce; 2 / place character in clist area for ppt input 
br o+2 / temp / if no space in clist character lost 

empb cc+2,$50. / character count in clist area for ppt input 

/ greater than or equal to 50 

bhis retisp / yes 

inc *gprs / no, set reader enable bit in prs 

br retisp 


movb $6,pptiflg / set pptiflg to 6 to indicate error bit set 
br retisp 
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UNIX IMPLEMENTATION 


/ jer r0,setisp 

/ jer r0,starlpt 

/ br retisp 

pptos / paper tape output ir errupt routine 
jsr r0,setisp / sve registers 
jsr r0,starppt / get next character from clist, and output 

/ if possible ; 

br retisp / pop register values from stack 

/sta>lpt: 

/ empb ect5. 39100. 

/ bhi 1f 

/ jsr rO,wakeups; rung+2; 5 

13 

/ tstb *$lps 

/ bge if 

/ jer r0,getc; 5 

/ br 1£ 

/ mov r1,*$lpb 

/ br starlpt 

/13 

/ rts r0 


startty: / start or restart console tty output 
empb ect1,$5. 


bhi 4£ / branch to if when character count on tty (? input, 
/ output) list is greater than 5. 
jsr rO0,wakeup; rungt2; 1 


tstb *$tps / test console output ready bit 
bge 2f / branch if ready bit is clear 
tstb toutt+O / is toutt for console a zero 
bne 2f / if nots; branch to 2f 
movb ttyoch,r1 / put character to be output in ri 
bne 1f 
jsr r0,getc; 1 / if char is nul, get a char from console 
/ output list 
br 2£ / if console output list is empty, branch to 2f 


cirb ttyoch 


mov r1,*stpb / put character in console output register 
emp r1,$12 / is char a line feed 
bne if 


movb $15,ttyoch / put a cr in ttyoch 


cmp ri,$11 / char = ht 

bne 1f 

movb $15.,toutt+O / set time out to 15 clock tics 
13 , 

cmp r1,$15 / char = cr 

bne 2ft : 

movb $15.,toutt+O / set time out to 15 clock ticks 


rts r0 
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UNIX IMPLEMENTATION 


pptito: / paper tape input touts subrouting 


cmpb 
bne 
movb 
tstb 
bit 
ine 


43 


rts 


pptiflg,$2 / does "pptiflg indicate file just opened 

1£ / no, do nothing pet 
$10.,toutt+1 / yes, place 10 in tout entry for tty input 
*¢prs+1 / is error bit set 

1£ / yes, return 

*sprs / no, set read enable bit 


ro 


starppt: / start ppt output 


empb 
bhi 
jer 


tstb 


rts 


cc+3,$10. / is character count for ppt output greater 
/ than 10. 


1£ / yes, branch 


r0,wakeup; rungt2; 3 / no, wakeup process in wlist 
/ entry for ppt input 


*spps / is ready bit set in punch status word 

4f / no, branch 

rO0,getc; 3 / yes, get next char in clist for pptout and 
/ place in ri 

br 1f / if none, branch 

r1,*$ppb / place character in ppt buffer 


r0 


wakeup: ) wakeup processes waiting for an event by linking them to the 
queue 


mov 
mov 
mov 
movb 


beq 
cmp 


bhis 

clrb 
1% 

clrb 

jsr 


mov 
rts 


r1,-(sp) / put char on stack 
(rO)+,r2 / r2 points to a queue 
(r0)+,r3 / r3 = wait channel number. 
wlist(r3),r1 / r1 contains process number in that wait 
/ channel that was sleeping 
2f / if O return, nothing to wakeup 
r2,uepri / is rung greater than or equal to users process 
/ priority 
1£ / yes, don’t set time quantum to zero 
uquant / time quantum = 0 


wlist(r3) / zero wait channel entry 
rO,putlu / create a link from the last user on the Q 
/ to this process number that got woken 


(sp)+,r1 / restore r1 
r0 


sleep: / wait for event 


jsr 
mov 
movb 
movb 
mov 


Issue D Date 


r0,isintr / check to see if interrupt or quit from user 
br 2£ / something happened / yes, his interrupt so return 
/ to user 

(r0)+,r1 / put number of wait channel in r1 
wlist(r1),-(sp) / put old process number in there, on 

/ the stack . 
ueuno,wlist(r1) / put process number of process to put 

/ to sleep in there 
cdev,-(sp) / nothing happened in isintr so 
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UNIX IMPLEMENTATION 


jar r0,swap / swap out process that needs to sleep 
mov (sp)+,cdev / restore device 
jsr r0,isintr / check for interrupt of new process 


br 2f / yes, return to new user 
movb (sp)+,r1 / no, r1 = 01d process number that was originally 
/ on the wait channel 
beq 1£ / if O branch 


mov $rungt+4,r2 / r2 points to lowest priority queue 
mov $300,*$ps / processor priority = 6 
jsr r0,putlu / create link to old process number 
clr *gps / clear the status; process priority = 0 
1: 
rts rO / return 
2: 
jmp § sysret / return to user 
isintr: 
mov ri,~-(sp) / put number of wait channel on the stack 
mov r2,-(sp) / save r2 
mov uettyp,ri / ri = pointer to buffer o” process control 
/ typewriter 
beq 1f / if 0, do nothing except skip return 
movb 6(r1),r1 / put interrupt char in the tty buffer in r1 
beg 1f / if its 0 do nothing except skip return 
emp r1,$177 / is interrupt char = delete? 
bne 3f oy no, so it must be a quit (fs) 
tst ueintr / yes, value of u.intr determines handling 
/ of interrupts 
bne 2f / if not 0, 2f. If zero do nothing. 
13 : 
tst (r0)+ / bump rO past system return (skip) 
43 
mov (sp)+,r2 / restore r1 and r2 
mov (sp)+,r1 
rts ro 


3: / interrupt char = quit (€s) 
tst uequit / value of u.equit determines handling of quits 
beq 1b / uequit = 0 means do nothing 
2: / get here because either u.intr 4 0 or uequit 4 0 
mov $Stty+6,r1 / move pointer to tty block into r1 
1: / find process control tty entry in tty block 
cmp (r1),uettyp / is this the process control tty buffer? 
beq 1£ / block found go to if 
add $8,r1 / look at next tty block 
cmp r1,$tty+(ntty*8]+6 / are we at end of tty blocks 
blo 1b / no 
br 4b / no process control tty found so go to 4b 


mov $240,*$ps / set processor priority to 5 


movb -3(r1), Of / load gete call argument; character list 
/ identifier 
ine of / increment 
13 
jsr r0,getc; O:.. / erase output char list for control 


br 4b / process tty. This prevents a line of stuff 
/ being typed out after you hit the interrupt 
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UNIX IMPLEMENTATION 


/ key 
br 1b 
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/ us —— unix 


mgets 
mov 
elr 
mov 
mov 
bit 
bne 
bit 
bne 
bic 
mov 
bne 


jer 
mov 
jsr 
jsr 
rts 
3: / adding on 
jsr 
jsr 
mov 


mov 


4: / large file 


mov 
bic 


mov 
mov 


bic 
mov 
bne 


jsr 
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UNIX IMPLEMENTATION 


*u.fofp,mq / file offset in mq 

ac / later to be high sig 

$-8,lsh / divide ac/mq by 256. 

mq ,r2 

$10000,i.flgs / 1lg/sm is this a large or small file 

4f / branch for large file 

$117,r2 “2 : 

3f / branch ic & greater than or equal to 16 

$116,r2 / clear all bits but bits 1,2,3 

i.dskp(r2),r1 / r1 has physical block number 

2f / if physical block num is zero then need a new block 
/ for file 

r0,alloc / allocate a new block 

r1,iedskp(r2) / physical block number stored in i-node 

r0,setimod / set inode modified byte (imod) 

r0,clear / zero out disk/drum block ‘ust allocated 


r0 
block which changes small file to a large file 
r0,alloc J allocate a new block for this file; block number 
in ri 
r0,wslot / set up I/O buffer for write, r5 points to first 
/ data word in buffer 
$8.,r3 / next 6 instructions transfer old physical block 
/ pointers 
$i.dskp,r2 / into new indirect block for the new large file 


(r2),(r5)+ 

(r2)+ 

r3 

1b 

$256.-8.,r3 / clear rest of data buffer 


(r5)+ 

xr3 

1b 

r0,dskwr / write new indirect block on disk _ 

r1,iedskp / put pointer to indirect block in i-node 
$10000,ieflgs / set large file bit in i.flgs word of i-node 
r0,setimod / set i-node modified flag 

mget 


$-8,lsh / divide byte number by 256. 
$1776,r2 / zero all bits but 1,2,3,4,5,6,7,8; gives offset 
f/f in indirect block 
r2,-(sp) / save on stack 
mq,r2 / calculate offset in i-node for pointer to proper 
/ indirect block 
$116,r2 
i.dskp(r2),r1 
2f / if no indirect block exists 
r0,alloc / allocate a new block 
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alloc: 


13 
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mov 
jsr 
jsr 


jsr 
mov 
mov 
add 


mov 


bne 
jsr 
MOV 


mov 
mov 
jsr 
jer 


mov 
jsxr 


tst 
rts 


mov 
mov 
mov 
tst 
beg 
mov 


mov 


asl 
asl 
asl 
mov 
clr 


mov 
bne 
add 
emp 
blo 
jmp 


asr 
bes 


ine 
br 


UNIX IMPLEMENTATION 


r1,i.dskp(r2) / put block number of new block in i~node 
r0,setimod / set i-node modified byte 
r0,Clear / clear new block 


r0,dskrd / read in indirect block 
(sp)+,r2 / get offset . 
r1,-(sp) ‘/ save block number of indirect block on stack 
r5,r2 / r5 points to first word in indirect block, r2 
/ points to location of inter 
(r2),r1 / put physical block no of block in file 
/ sought in r1 
2£ / if no block exists 
rQ,alloc / allocate a new block 
r1,(r2) / put new block number into proper location in 
/ indirect block 
(sp)+,r1 / get block number of indirect block 
(r2),-(sp) / save block number of new block 
r0,wslot 
r0,dskwr / write newly modified indirect block back out 
/ on disk 
(sp),r1 / restore block number of new block 
r0,clear / clear new block 


(sp)+ / bump stack pointer 
ro 


r2,-(sp) / save r2, r3 on stack 

r3,-(sp) 

$systm,r2 / start of inode and free storage map for drum 

cdev , 

1f / drum is device 

$mount,r2 / disk or tape is device, start of inode and free 
/ storage map 


(r2)+,ri / first word contains number of bytes in free 
/ storage map 
ri / multiply r1 by eight gives, number of blocks in device 
ri 
ri 
r1,-(sp) / save # of blocks in device on stack 
ri / r1 contains bit count of free storage map 


(r2)+,r3 / word of free storage map in r3 

1£ / branch if any free blocks in this word 
$166,r1 

ri1,(sp) / have we examined all free storage bytes 
1b 

panic / found no free storage 


r3 / find a free block 


1f / branch when free block found; bit for block k is in 
/ byte k/8 / in bit k (mod 8) 

r1 / increment bit count in bit k (mods) 

1b 
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tst 
jsxr 
bic 
br 


free: 
mov 
mMOv. 
jsr 


bis 


mov 
mov 
tst 


bne 
incb 
rts 


incb 
rts 


Mov: 
bic 
clr 
bisb 


mov 
asr 
asr 
asr 
asr 
bee 


swab 
asl 
add 
tst 


beq 
add 


rts 


ebyte 


access? 
jsr 


mov 
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UNIX IMPLEMENTATION 


(sp)+ / bump sp 

r0,3f / have found a free block 

r3,(r2) / set bit for this block i.e. assign »lock 
2f 


r2,-(sp) ‘/ save r2, r3 
r3,-(sp) 
r0,3f / set up bit mask and word no. in free storage map 
/ for block 
r3,(r2) / set free storage block bit; indicates free block 


(sp)+,r3 / restore r2, r3 

(sp)+,xr2 

cdev / edev = 0, block structured, drum; cdev = 1 
/ mountable device 

1f£ 

smod / set super block modified for drum 

r0 


mmod / set super block modified for mountable device 
ro 


r1,Y2 / block number, K, = 1 
$17,r2 / clear all bits but 0,1,2; r2 = (k) mod (8) 


r3 
2£(r2),r3 J use mask to set bit in r3 corresponding to 


(k) mod 8 
r1,r2 / divide block number by 16 
r2 
r2 
r2 
r2 : 
4£ / branch if bit 3 in r1 was 0 i.e., bit for block is in 


/ 
/ lower half of word 
r3 / 


swap bytes in r3; bit in upper half of word in free 
/ storage map 


r2 / multiply block number by 23 r2 = k/8 
$systmt+2,r2 / address of word of free storage map for drum 
/ with block bit in it 

cdev . 

1£ / cdev = 0 indicates device is drum 

$mount-systm,r2 / address of word of free storage map for 
/ mountable device with bit of block to be 
/ freed 


rO / return to ’free’ 

152,4,10,20,40,100,200 / masks for bits 0,++4,57 

r0,iget / read in i-node for current directory (i—number 
/ passed in ri) 


i.flgs 9X2 
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setimod: 
movb 
mov 
mov 
rts 


UNIX IMPLEMENTATION 


i.uid,u.uid / is user same as owner of file 

1£ / no, then branch 

r2 / shift owner read write bits into non owner 
/ read/write bits 

r2 


r2,(r0)+-/ test read-write flags against argument in 
/ access call 

1f 

ueuid 

4£ 

error 


ro 


$1, imod / set current icnoae modified bytes 

atime, iemtim / put present time into file modified time 
setimet+2,iemtimt2 

r0 


imap: / get the byte that has the allocation bit for the i-number contained 


/ in rit 
mov 
mov 


sub 
mov 
bic 
mov 


asr 
asr 
asr 


mov 
mov 


add 
rts 


iget: 
emp 
bne 
cmp 
beq 


tetb 
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$i,mq / put 1 in the mq 

r1,r2 / r2 now has i-number «hose ‘byte in the map we 
/ must find 

$41.,r2 / r2 has i-41 

r2,r3 / r3 has i-41 

$17,r3 / r3 has (i-41) mod 8 to get the bit position 

r3,lsh / move the 1 over (i-41) mod 8 positions to the left 
/ to mask the correct bit 


r2 

r2 ; 

r2 / r2 has (i~41) base 8 of the byte no. from the start of 
/ the map 


r2,-(sp) / put (1-41) base 8 on the stack 
$systm,r2 / r2 points to the in-core image of the super 
/ block for drum 
cdev / is the device the disk 
if / yes 
$mount-systm,r2 / for mounted device, r2 points to 1st word 
/ of its super block 


(r2)+,(sp) / get byte address of allocation bit 


(sp)+,r2 / ? 
$2,r2 / ? 
r0 


r1,ii / x1 = i-number of current file 

1£ 

idev,cdev / is device RUNRSE: of i-node = current device 
2f 


imod / has i-node of current file been modified i.e., 
/ imod set 
3/17/72 
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beq 
clirb 
mov 
mov 
mov 
mov > 
jsr 
mov 
mov 


tst 
beq 
tst 


bne 
cmp 


bne 
mov 
mov 


mov 
mov 
jsr 


mov 
rts 


UNIX IMPLEMENTATION 


1f 

imod / 4f it has, we must write the new i-node out on disk 
r1,-(sp) 

cdev,-(sp) 

ii,ri 

idev,cdev 

r0,icalcs; 1 

(sp) +,cdev 

(sp)+,r4 


ri / is new i-number non zero 
2f / branch if r1=0. 
edev / is the current device number non zero (i.e., device 
/ # drum) 
1£ / branch if cdev #4 0 
r1,mnti / mnti is the i-number of the cross device 
/ file (root directory of mounted device) 
1£ 
mntd,cdev / make mounted device the current device 
rootdir,r1 


r1,ii 
cdev,idev 
r0,icalc; 0 / read in i-node ii 


ii,r1 
r0 


icalc: / i-node i is located in block (i+31.)/16. and begins 32.* 
/ (1+31)mod16 bytes from its start 


add 
mov 
asr 
asr 
asr 
asr 


jsr 
tst 
beq 
jsr 


bic 
mov 
mov 
add 
mov 
mov 
tst 
beq 


mov 
dec 
bgt 
jer 
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$31.,r1 / add 31. to i-number 
ri,-(sp) / save i+31. on stack 
r1 / Givide by 16. 


r1 / r1 contains block number of block in which 
/ i-node exists 
ae / read in block containing i-node i. 
r0 
1f / branch to wslot when argu:ent in icalce call = 1 
r0,wslot / set up data buffer for write (will be same buffer 
/ as askrd got) 


$117,(sp) / zero all but last 4 bits; gives (i+31.) mod 16 
(sp)+,mq / calculate offset in data buffer; 32.*(i+31.)mod16 
$5,lsh / for i-node i. . 

mq,r5 / r5 points to first word in i-node i. 

$inode,r1 / inode is address of first word of current i-node 
$16.,r3 - 

(ro0)+ / branch to 2f when argument in icale call = 0 

2f / rO now contains proper return address for rts r0O 


(r1)+,(r5)+ / over write old i-node 
x3 

1b 

r0,dskwr / write inode out on device 
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rts 


mov 
dec 
bot 
rts 


itrunc: 
jer 
mov 
13 
mov 
beg 
mov 
bit 
beq 
mov 
jsr 
mov 


mov 
beq 
mov 
mov 
jsr 
mov 
mov 


dec 
bgt 
mov 


jsr 
mov 


cmp 
bne 
bic 
cir 
jer 
jsx 
mov 
rts 


UNIX IMPLEMENTATION 


ro 


(r5)+,(r1)+ / read new i-node into “inode” area of core 
x3 
2b 
r0 


r0,iget 
$iedskp,r2 / address of block pointers in r2 


(r2)+,r1 / move physical block number into r1 

5f£ 

r2,-(sp) 

$10000,i.flgs / test large file bit? 

4£ / if clear, branch 

ri,-(sp) / save block number of indirect block 

r0,dskrd / read in block, 1st data word pointed to by r5 
$256.,r3 / move word count into r3 


(r5)+,r1 / put 4st data word in r1; physical block number 
3£ / branch if zero 

r3,-(sp) / save r3, r5 on stack 

r5,-(sp) 

r0,free / free block in free storage map 

(sp)+,xr5 

(sp)+,r3 


r3 / decrement word count 
2b / branch if positive 
(sp)+,r1 / put physical block number of indirect block 


r0,free / free indirect block 
(sp)+,r2 


Y2,$1i-dskp+16. 

1b / branch until all i.dskp entries chec’. 
$10000,ieflgs / clear large file bit 

issize / zero file size 
r0,copyz; i.dskp; i.dskpt+16. / zero block pointers 
r0,setimod / set i-node modified flag 

1i,x1 

r0 
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/ u6 —— unix 


UNIX IMPLEMENTATION 


readi: 
elr uenread / accumulates number of bytes transmitted 
tst uecount / is number of bytes to be read greater than 0 
bgt 1£ / yes, branch 
rts rO / no, nothing to read; return to caller 
13 , ; 
mov ri,-(sp) / save i-number on stack 
cmp r1,$40. / want to read a special file (i-nodes 1,...,40 axe 
_f/ for special files) 
ble 1£ / yes, branch 
jmp dskr / no, jmp to dskr; read file with i-node number (11) 
/ starting at byte ((u.fofp)), read in u.count bytes 
13 
asl r1 / multiply inode number by 2 
jmp *4£~2(r1) 
1s 
rtty / tty; r1=2 
rppt / ppts ri=4 
rmem / mem; r1=6 
rrfo / rfo 
rrkO / rkO 
rtap / tap0d 
rtap / tapi 
rtap / tap2 
rtap / tap3 
rtap / tap4 
rtap / taps 
rtap / tapé6 
rtap / tap7 
revt / ttyO 
revt / tty! 
revt / tty2 
revt / tty3 
reve / tty4 
revt / tty5 
revt / tty6 
revt / tty7 
rerd/ erd 


rtty: / read from console tty 


mov 
tst 
bne 
jsxr 
tst 
beq 


movb 
ine 
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tty+[S*ntty]-8+6,r5 / r5 is the address of the 4th word of 
/ of the control and status block | 
2(r5) / for the console tty; this word points to the console 
/ tty buffer 
1f / 2nd word of console tty buffer contains number 
/ of chars. Is this number non—zero? 
r0,canon; ttych / if 0, call ‘canon’ to get a line 
/ (120 chars.) 


2(r5) / is the number of characters zero 

reti / yes, return to caller via ‘’ret1’ 

#4(r5),r1 / no, put character in r1 

4(r5) / 3rd word of console tty buffer points to byte which 
/ contains the next char. 
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rmem: / 


dec 
jsr 
br 


jmp . 


UNIX IMPLEMENTATION 


2(r5) / decrement the character count 
r0,passc / move the character to core (user) 
1b / get next character 


ret / return to caller via ‘ret’ 


read paper tape 


jsxr 


jsr 
br 


r0,pptic / gets next character in clist for ppt input and 
/ places 
br ret / it in r13; if there is no problem with reader, it 
/ also enables read bit in prs 
r0,passe / place character in users buffer area 


rppt 


transfer characters from memory to a user area of core 


mov 
inc 


movb 
jsr 


br 


jmp 


mov 
jsr 
mov 
sub 
blos 
cmp 
bhis 
mov 


jsr 
jsx 
jsr 
movb 
dec 
bne 


tst 
bne 


br 


passe: 
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movb 


inc 


*u.fofp,r1 / save file offset which points to the char to 
/ be transferred to user 
*u.fofp / increment file offset to point to ‘next’ char in 
/ memory file 
(r4),r1 / get character from memory file, put it in r1 
rO0,passc / move this character to the next byte of the 
/ users core area 
rmem / continue 


error / see ’error’ routine 


(sp),xr1 / i-number in r1 

r0,iget / get i-node (r1) into i-node section of core 
i.size,r2 / file size in bytes in r2 

*u.fofp,r2 / subtract file offset 

ret 

r2,u.ecount / are enough bytes left in file to carry out read 
1£ 

r2,uecount / no, just read to end of file 


r0,mget / returns physical block number of block in file 
/ where offset points 

r0,dskrd / read in block, r5 points to ist word of data in 
/ buffer 

r0,sioreg 


(r2)+,(xr1)+ / move data from buffer into working core 
/ starting at u.base 
r3 
2b / branch until proper number of bytes are transferred 
u.ecount / all bytes read off disk 
dskr 
ret 


r1,*u.base / move a character to the next byte of the 
/ users buffer 
uebase / increment the pointer to point to the next byte 
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ine 
dec 
bne 
mov 


ret: / (1) pop 
mov 

+3 
clr 
rts 


writel: 
clr 


mov 
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ue] 
H 


UNIX IMPLEMENTATION 


/ in users buffer 
uenread / increment the number of bytes read 
u.ecount / decrement the number of bytes to be read 
1£ / any more bytes to read?; yes, branch 
(sp)+,r0 / no, do a non-local return to the caller of 


the return address off the stack into r0O 
(sp)+,r1 / (2) pop the i-number off the stack into r1 


#sps / clear processor status 
r0 / return to address currently on top of stack 


uenread / clear the number of bytes transmitted during 
/ read or write calls 

u.ecount / test the byte count specified by the user 

1f / any bytes to output; yes, branch 

r0 / no, return — no writing to do 


r1,-(sp) / save the i~node number on the stack 

r1,$40. / does the i—node number indicate a special file? 
dskw / no, branch to standard file output 

r1 / yes, calculate the index into the special file 
#4£-2(r1) / jump table and jump to the appropriate routine 


/ tty 

ppt 

mem 

rf£0 

rkO 

tapd 
tap1 
tap2 
tap3 
tap4 
taps 
tap6 
tap7 
ttyO 
tty1 
tty2 
tty3 
tty4 
tty5 
tty6 
tty7 


r0,cpass / get next character from user buffer area; if 
/ none go to return address in syswrite 

ri / is character = null 

wtty / yes, get next character 


$240,*$ps / no, set processor priority to five 
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cmpb 


bhis 
jsr 


jsr 
br 


mov 
jsr 
mov 
br 


wppt: 
jszr 


jsr 
br 


~ 
= 
_ 
ue 
K 


jsxr 
emp 
blo 
emp 
bhi 
sub 


—_ 
oo 


jsr 
br 


ARRAS RRS 


Ps 
| 
® 
zs 


jsxr 
mov 
mov 
inc 
movb 


br 


jmp 


UNIX IMPLEMENTATION 


ec+1,$°9. / is character count for console tty greater 
/ than 20 
2£ / yes; branch to put process to sleep 
rO,putc; 1 / find place in freelist to assign to console 
/ tty and 
br 2f / place character in list; if none available 
/ branch to put process to sleep 
r0,startty / attempt to output character on tty 
wtty 


r1,-(sp) / place character on stack 

r0,sleep; 1 / put process to sleep 

(sp)+,r1 / remove character from stack 

1b / try again to place character in clist and output 


r0,¢cpass / get next character from user buffer area, 
/ if none return to writei’s calling routine 

r0,pptoc / output character on ppt 

wppt 


r0,Cpass 
r0,$ a 


: / transfer characters from a user area of core to memory file 


r0,cpass / get next character from users area of core and 
/ put it in r1 

r1,-(sp) / put character on the stack 

*u.fofp,ri / save file offset in r1 

*u.fofp / increment file offset to point to next available 
/ lecation in file 

(sp)+,(r1) / pop char off stack, put in memory loc assigned 

/ to it 
wmem / continue 


error / ? 


dskw: / write routine for non-special files 


mov 
jsxr 


mov 
add 
- emp 
blos 
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(sp),r1 / get an i-node number from the stack into r1 
r0,iget / write i-node out (if modified), read i-node ‘ri’ 


/ into i-node area of core 
*u.fofp,r2 / put the file offset [(u.off) or the offset in 
/ the fsp entry for this file] in r2 
u.ecount,r2 / no. of bytes to be written + file offset is 
/ put in r2 


_22,iesize / is this greater than the present size of 


/ the file? 
4£ / no, branch 
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mov r2,iesize / yes, increase the file size to file offset + 
/ now of data bytes 
jsr r0,setimod / set imod=1 (i.e., core inode has been 
/ modified), stuff time of modification into 
/ core image of i-node 


jsr r0 ymget / get the block no. in which to write the next data 
, byte 
bit #u.fofp,$777 / test the lower 9 bits of the file offset 
bne 2f / if its non-zero, branch; if zero, file offset = 0, 
/ 512, 1024,0.e(iee., start of new block) 
cmp uecount,$512. / if zero, is there enough data to fill an 


/ entire block? (i.e., no. of 
bhis 3f / bytes to be written greater than 512.? Yes, branch. 
/ Don’t have to read block 
2: / in as no past info. is to be saved (the entire block will be 
/ overwritten). 


¢ ? 


jsx r0,dskrd / no, must retain old info.. Hence, read block r1 
/ into an I/O buffer 
33 
jsxr r0,wslot / set write and inhibit bits in I/O queue, proc. 
/ status=0, r5 points to ist word of data 
jsx r0,sioreg / r3 = no. of bytes of data, ri = address of data, 
/ r2 points to location in buffer in which to 
/ start writing data 
23 : 
movb (r1)+,(r2)+ / transfer a byte of data to the I/O buffer 
dec r3 / decrement no. of bytes to be written 
bne 2b / have all bytes been transferred? No, branch 
jer r0,dskwr / yes, write the block and the i-node 
tst u.ecount / any more data to write? 
bne 1b / yes, branch 
jmp ret / no, return to the caller via ‘ret’ 
cpass: / get next character from user area of core and put it in x1 
tst uecount / have all the characters been transferred (LeGey 
/ uecount, # of chars. left 
beg 1£ / to be transferred = 0?) yes, branch 
dec uecount / no, decrement u.count 
movb *u.base,r1 / take the character pointed to by u.base and 
/ put it in r1 
inc u.enread / increment no. of bytes transferred 
inc uebase / increment the buffer address to point to the 
rts rO / next byte 
1s 
mov (sp)+,r0 / put return address of calling routine into r0 
mov (sp)+,r1 / i-number in r1 
rts rO / non-local return 


sioreg: 

mov *u.fofp,r2 / file offset (in bytes) is moved to r2 

mov r2,r3 / and also to r3 

bis $177000,r3 / set bits 9,.+.,15. of file offset in r3 

bic $1777,r2 / calculate file offset mod 512. 

add r5,rz / r2 now points to ist byte in system buffer where 
/ data is to be placed 
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mov 
neg 


cmp 
blos 


mov 


add 
sub 
add 
add 


rts 


UNIX IMPLEMENTA? ION 


u.base,r1 / address of data is in r1 
x3 / 542 - file offset (mod512. ) in r3 (iee., the number 
/ of free bytes in the file block 
r3,Uecount / compare this with the number of data bytes to 
/ be written to the file 


(2f / if less than branch. Use the number of free bytes 


/ in the file block as the number to be written 

uecount,r3 / if greater than, use the number of data bytes 
/ as the number to be written 

r3,uenread / r3 + number of bytes xmitted during write is 

/ put into u.nread 

r3,U.count / u.count = no. of bytes that still must be 

/ written or read 

r3 ,u.base 4 uebase points to the 1st of the remaining data 
bytes 

r3,*u.fofp / new file offset = number of bytes done + old 
/ file offset 

ro 
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/ uu? -- unix 


canons 
mov 
add 
mov 


clr 
jsr 
jer 
jsr 


emp 
beq 
movb 


inc 
inc 
emp 
beq 
cmp 
bhis 
br 


UNIX IM! LEMENTATION 


r5,xr1 / move tty buffer address to r1 

$10.,r1 / add 10 to get start of data 

r1,4(r5) ‘/ canp = 10(r5) / move buffer a?tdr + 10 to 3rd 
/ word in buffer (char. pointer) 

2(r5) / nean / clear 2nd word in buffer, O char. count 


r0,*(r0) / jump to arg get char off QO of characters, sleep 
/ if none 

r0,cesc; 100 / test for @ (kill line) 

br canon / character was @ so start over 

r0,cescs; 43 / test for # (erase last char. typed) 

br 1b / character was #, go baci: 

r@,$4 / is char eot? 

1£ / yes, reset and return 

r1,*4 r5) / no, move char to address in 3rd word of buffer 
(char. pointer) 

2(r5) / increment 2nd word (char. count) 

4(r5) / increment 3rd word (char. pointer) 

r1,$’\n / is char = newline 

1f / yes, 1f 

2(r5),$120. / is byte count greater than or equal to 120 

1£ / yes, 1£ 

1b / no, get another char off the Q 


43: / get here if line is full, a new line has been received or an eot 
/ has been received 


mov 
add 
mov 
tst 
rts 


r5,r1 / move buffer address to r'1 

$10.,r1 / add 10 
r1,4(r5) / canp = 10(r5) / reset char pointer 
(r0)+ / skip. over argument 

ro / return 


cesc: / test for erase or kill char 


cmp 
bne 
tst 
beq 
dec 
dec 
cmpb 
bne 


tst 


rts 


r1,(r0)+ / char in r1 = erase or kill character? 
1£ / no, skip return 
2(r5) / yes, is char. count = 0 
2£ / yes, don’t skip return 
2(r5) / no, decrement char count 
4(r5) / decrement character pointer | 
sales), $’\\/ was previous character a "\" 


2f / no, don’t skip 


(rO)+ / yes, skip 


rO / ‘return 
Storr 


ttych: / get characters from Q of characters inputted te tty 


mov 
jsr 


elr 
rts 


$240,*sps / set processor priority to 5 

r0,getc; 0 / takes char. off clist and puts it in ri 
br 1£ / list is empty, go to sleep 

*$ps / clear process priority 

r0 / return 


1; / list is empty 
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mov r5,-(sp) / save r5 

jsr r0,sleep; 0 / put process to sleep in input wait channel 
mov (sp)+,r5 / restore r5 

br ttych / try again 


pptic: / paper tape inp.:it control 
mov $240,*sps / set processor priority to five 
empb ec+2,$30. / is character count for paper tape input in 
/ clist greater than or equal to 30 
bhis 1f£ / yes, branch 
bit *sprs,8104200 / is there either an error, an unread char 
/ in buffer, or reader busy 
bne 1f / yes, don’t enable reader 
inc *$prs / set reader enable bit 


jer r0,getc; 2 / get next character in clist for ppt input and 


br 1£ ve "place in ri; if no char in clist for ppt input 
/ branch 
tst (r0)+ / pop stack so that return will be four locations past 
/ subroutine call 
23 
clr *$sps / set process priority equal to zero 
rts rO / return 
13 
cmpb pptiflg,$6 / does pptiflg indicate file “not closed” 
beq 2b / yes, return to calling routine at instruction 
/ immediately following jsr 
jsr r0,sleep; 2 / no, all characters to be read in not yet in 


/ clist, put process to sleep 
br pptic 


pptoc: / paper tape output. control 

mov $240,*$ps / set processor priority to five. 

cmpb cc+3,$50. / is character count for paper tape output in 
/ clist greater than or equal to 50 

bhis 1£/y 

jsxr ro pave. 3 / find place in freelist to assign ppt output 
/ and place 

br 1£ / character in list; if none available branch to put 
/ process to sleep 


jer rO,starppt / try to output character 
clr *$ps / clear processor priority 
rts rO / return 
1s 
mov ri,-(sp) / place character on stack 
jer r0,sleep; 3 / put process to sleep 
mov (sp)+, r1 / place character in r1. 
br pptec / try again to place character in clist and output 
/iptoc: / line printer output control 
/ mov $240,*$ps / set processor priority to five 
/ empb ect5,$200. / is character count for printer greater than or 
/ equal to 200 
/ bhis 1f / yes 
/ jsr rO0,putc; 5 / find place in freelist to assign to printer 


and place 
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eo 


e 


Ve] 
ct 
Q 

ie 


putcs 


gets 


23 


/ 


jsr 
clr 
rts 


mov 
jsxr 
mov 
br 


UNIX IMPLEMENTATION 


br if / char in list, if none available branch to put 
/ process to sleep 


rO,starlpt / try to output character 


*sps / set processor priority = 0 
r0 / return 


r1,-(sp) ‘/ place character on stack 
r0,sleep; 5 / put process to sleep 
(sp)+,r1 / place character on stack 
iIptoc 


get a character off character list 


mov 
jsr 


decb 
mov 
jsr 
movb 
tst 


rts 


mov 
mov 
jsr 


mov 
incb 
jsr 

movb 


tst 
mov 
rts 


movb 
beq 
tst 
cmpb 
beq 
bic 
asl 
movb 


br 
clrb 
clrb 
bie 
asl 


rts 
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(roO)+,r1 / put argument in getc call in r1 (char list id) 
r0,get , 

br 1f / empty char list return 

cec(r1) / decrement number of char in char list 

$-1,r1 / load minus 41 in r1 

r0,put / put char back on free list 

clist-2(r2),r1 / put char in ri 

(ro)+ / bump rO for non blank char list return 


ro 


ri,-(sp) / save char on stack | 
$-1,r1 / put free list list id in ri‘ 
r0,get / take char off free list / clist slot taken 
‘f identified by r2 
br 1£ / branch when no chars in free list 
(ro)+,r1 / put pute call arg in ri (ieee, list identifier) 
cece(r1) / increment character count for list (ri) 
r0,put / put clist entry on list 
(sp),clist-—2(r2) / put character in new entry 


(ro)+ 
(sp)+,r1 
r0 


ef+i1(r1),r2 / move current first char offset to r2 

2f / no characters in char list 

(r0)+ / bump rO, second return 

r2,cl+i(r1) / r2 equal to last char offset 

1£ / yes, (ieee, entire char list scanned), branch to if 

$1377,r2 / clear bits 8-15 in r2 

r2 / multiply r2 by 2 to get offset in clist 

clist-1(r2),cf+1(r1) / move next char in list pointer to 
/ first char offset ptr 

2f 


cef+i(ri) / clear first char clist offset 
cl+i(r1) / clear last char clist offset 
$1377,r2 / zero top half of r2 

r2 / mcitiply r2 by 2 


ro 
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re, divide r2 by 2; r2 is offset in clist 
r2,-(sp) / save r2 on stack 
cl+i(r1),r2 / move offset of last char in list (r1) into r2 
4£ / offset = 0 then go to 1f (i.e., start a new list) 
$1377,r2 / zero top half of r2 
r2 / multiply offset by 2, r2 now has offset in clist 
(sp),clist-1(r2) / link new list entry to current last 

/ entry in list (r1) 
2f 


(sp),cf+1(r1) / put new list entry offset into first char 
/ offset of list (r1) 


(sp)+,r2 / pop stack into r2; offset of new list 
entry in r2 
r2,cl+1(r1) / make new list entry the last entry in list 


ri 
r2 / multiply r2 by 2; r2 has clist offset for new 
/ list entry 
ro 


iopen: / open file whose i-number is in r‘ 


tst 
blt 
jer 
cmp 
bgt 
mov 
asl 


jmp 


otty 
oppt 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
ocvt 
ocvt 
ocvt 
ocvt 
ocvt 
ocvt 
ocvt 
ocvt 


ri / write or read access? 

2f / write, go to 2f 

r0,access; 2 / get inode into core with read access 
r1,$40. / is it a special file 

3f / no, 3f 

r1,-(sp) / yes, figure out 


ri 

#4£-2(r1) / which one and transfer to it 
tty 

ppt 

mem 


~_n 
oo 
aw 
Oth 
oO 


tapo 
tapi 
tap2 
tap3 
tap4 
taps 
tap6 
tap7 
tty0d 
tty1 
tty2 
tty3 
tty4 
tty5 
tty6 
tty7 


MAA AAR RAR AS RRR RO AAS, 


error / crd 
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2: / check open write access 


neg ri / make inode number positive 
jsr rO,access; 1 / get inode in 0 core 
bit $40000,i-eflgs / is it a directory? 
bne 2f / yes, transfer (error) 
cmp r1,840. / no, is it a special file? 
bgt 3£ / no, .return 
mov r1,—(sps / yes 
asl r1 
jmp #4£-2(r1) / figure out which special file it is 
/ and transfer 
1: 
otty / tty 
leadr / ppt 
sret / mem 
sret / rf0 
sret / rk0O 
sret / tapod 
sret / tapi 
sret / tap2 
sret / tap3 
sret / tap4 
sret / tap5S 
sret / tap6 
sret / tap7 
ocvt / tty0d 
ocvt / tty 
ocvt / tty2 
ocvt§ / tty3 
ocvt / tty4 
ocvt§ / ttyS5 
ocvt / tty6 
ocvt / tty7 
/ ejec / lpr 
otty: / open console tty for reading or writing 
mov $100,*stks / set interrupt enable bit (zero others) in 
/ reader status reg 
mov $100,*stps /. set interrupt enable bit (zero others) in 
/ punch status reg , . 
mov ttyt+([ntty*8]-8+6,r5 / r5 points to the header of the 
/ console tty buffer 
incb (rS) / increment the count of processes that opened the 
/ console tty 
tst u.ettyp / is there a process control tty (ieee, has a tty 
/ buffer header 
bne sret / address been loaded into u.ttyp yet)? Yes, branch 
mov r5,uettyp / no, make the console tty the process control 
tty 
br sret / ? 
sret: 
clr *sps / set processor priority to zero 
mov (sp)+,r1 / pop stack to r1 
33 
. rts r0 
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oppts / open paper tape for reading or writing 


Mov 
tstb 
bne 


mov 
jsr 


br 

movb 

movb 

br 
23 

jmp 


$100,*$prs / set reader interrupt enable bit 
pptiflg / is file already open 
2£ / yes, branch 


$240,*$ps / no, set processor priority to 5 

r0,getc; 2 / remove all entries in clist 

br .+4 / for paper tape input and place in free list 
1b 

$2,pptiflg / set pptiflg to indicate file just open 
$10.,touttt+1 / place 10 in paper tape input tout entry 
sret 


error / file already open 


iclose: / close file whose i-number is in r'1 


tst 
bit 
cmp 
bgt — 
mov 
asl 


jmp 


ctty 
cppt 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
ecvt 
ecvt 
ecvt 
ecvt 
eevt 
ecvt 
ccevt 
ecvt 


r1 / test i-number 

2f / if neg., branch 

r1,$40. / is it a special file 
3b / no, return 

r1,-(sp) / yes, save ri on stack 


r1 , 
*4£-2(r1) / compute jump address and transfer 


tty 

ppt 

mem 

rf£0o 

rko 

tap0 
tapi 
tap2 
tap3 
tap4 
tap5 
tape 
tap7 
ttyO 
tty1 
tty2 
tty3 
tty4 
tty5 
tty6 
tty7 


MRA SO SRR RSA RRR 


error / cra 


2: / negative i-number — 


neg 

emp 

bgt 

mov 

asl 

jmp 
1: 
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x1 / make it positive > 

r1,$40. / is it a special file 

3b / no, return 

r1,-(sp) 

r1 / yes, compute jump address and transfer 
%4£-2 rt) 
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UNIX IMPLEMENTATION 


ctty / tty 

leadr / ppt 

sret / mem 

sret / rf0 

sret / rkO 

sret / tap0 
sret / tapi! 
sret / tap2 
sret / tap3 
sret / tap4 
sret / tapS 
sret / tap6 
sret / tap7 
ecvt / ttyd 
ecvt / ttyl 
eevt / tty2 
ecevt§ / tty3 
ecevt / tty4 
ecvt / tty5 
ecevt / tty6 
cevt / tty7 

/ ejec / lpr 


ctty: / close console tty 
mov tty+[ntty*8]-8+6,r5 / point r5 to the console tty buffer 
dech (r5) / dec number of processes using console tt. 
br sret / return via sret 


eppt: / close paper tape 
cirb pptiflg / set pptiflg to indicate file not open 


13 

mov $240.*sps / set process or priority to 5 

jer -xO,getc; 2 / remove all ppt input entries from clist 

/ and assign to free list 
br sret 

br ib 
/ejecs . 
/ mov $100,*slps / set line printer interrupt enable bit 
/ mov $14,r1 / ‘form feed’ character in r1 (new page). 
/ jsr r0,lptoc / space the printer to a new page 
/ br sret / return to caller via ‘sret’ 


leadr: / produce paper tape leader 
mov $100,*$pps / set paper tape punch interrupt enable 
mov $100.,-(sp) / 101. characters of ‘nul’ will be output as 


/ leader 
13 
clr ri / ri contains a ‘nul’ character 
jar r0,pptoc / output the ‘nul’ character 
dec (sp) 
bge 1b / last leadexs character output? no, branch 
tst (sp)+ / bump stack pointer 
br sret / return to caller via ‘’sret’ 


sysmount: / mount file system; args special; name 
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jsr 
tst 
bne 
jer 
mov 


mov 
jsr 


mov 
tstb 


bne 
mov 
movb 


mov 
bis 
jsxr 


tstb 
bne 
br 


UNIX IMPLEMENTATION 


r0,arg2 / get arguments special and name 

mnti / is the i-number of the cross device file zero? 

exrora / no, error 

r0,getspl / get special files device number in ri 

(apy eG nense / put the name of file to be placed on the 
/ device 

r1,-(sp) -/ save the device number 

r0,namei / get the i-number of the file 

br errora 

ri,mnti / put it in mnti 


sbit+1 / is 15th bit of I/O queue entry for dismountable 
/ device set? 
ib / (inhibit bit) yes, skip writing 
(sp),mntd / no, put the device number in mntd 
(sp),sb1 / put the device number in the lower byte of the 
/ I/O queve entry 
(sp)+,cdev / put device number in cdev 
$2000,sb1 / set the read bit 
r0,ppoke / read in entire file system sapeor block 


sbit+1 / done reading? 
1b / no, wait 
sysreta / yes 


sysumount;: / special dismount file system 


jsr 
jsxr 
cmp 
bne 


tstb 


bne 
clr 
cir 
br 


r0,arg; uenamep / point u.enamep to special 
r0,getspl / get the device number in r1 
ri,mntd / is it equal to the last device mounted? 
errora / no error 


sbi+1 / yes, is the device still doing I/O (inhibit 
/ bit set)? 

1b / yes, wait 

mntd / no, clear these 

mnti neki 

sysreta / return 


getspl: / get device number from a special file name 


jsr 


erroras 


sysreta; 
jmp 


Issue D Date 


rO,namei / get the i-number of the special file 


br errora / no such file 

$4,r1 / i-number-4 rk=1,tap=2+n 
errora / less than 0? yes, error 
ri1,$9. / greater than 9 tap 7 
errora / yes, error 

rO / return with device number in r1 


error / see ’error’ routine 


sysret / see ‘sysret’ routine 
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UNIX IMPLEMENTATION 


/ vs -— unix 


rtap: / read from the dec tape 
asr r1 / divide the i-number by 2 
sub $4.,r1 / (i-number/2)-4 11 
mov r1,cdev / cdev now has device number 
jsx -- xrO,bread; 578. / read in block thats in *u.fofp 


wtap:; i 
asr r1 / divide i-number by 2 
sub $4.,r1 / ri = i-number minus 4 
mov r1,cdev / this is used as the device number 
jsxr rO,bwrite; 578. / write block (u.fofp) on dec tape 
/ Maximum 
rrkO: 
mov $1,cdev / set current device to i., disk 
jer rO0,bread; 4872. / read block from disk (maximum block 
/ number allowed on ‘evice is 4872.) 
/ - (u.fofp) contains block number 
wrk0: 
mov $1,cdev / set current device to 1; disk 
jsr rO,bwrite; 4872. / write block (u.fofp) on disk 
rrf0: 
clr edev / set current device to 0., fixed head disk 
jsr r0,bread; 1024. / read block (u.fofp) from fixed head 
/ disk (max. block number allowed on 
/ device is 1024.) 
wrfO: 


clr cdev / set current device to 0., fixed head disk 
jer rO0,bwrite; 1024. / write block °(u.fofp)* on fixed head 


/ disk 
bread: / read a block from a block structured device 
jsr r0,tstdeve / a on special file 1/0 (only works on 
tape 
mov *u.fofp,r1 / move block number to r1 


mov $2.-cold,=(sp) / _2-cold to stack 


cmp r1,(r0) / is this block # greater than or equal to 
/ maximum block # allowed on device 
bhis 1£ / yes, 1f (error) 


mov r1,-(sp) / no, put block # on stack 

jsx rO,preread / read in the block into an I/O buffer 

mov (sp)+,r1-/ return block # to r1 

inc x1 / bump block # to next consecutive block 

dec (sp) / 2-1-cold on stack 

bgt 2—1—-cold = 0? No, go back and read in next block 


1b / 
tst (sp)+ / yes, pop stack to clear off cold calculation 
mov #u.fofp,ri / restore r1 te initial value of the 

/ block # 
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UNIX IMPLEMENTATION 


cmp r1,(r0)+ / block # greater than or equal to maximum 
/ block number allowed 
bhis  error10 / yes, error 


inc *u.fofp / no, *u.fofp has next block number 

jer rO,preread / read in the block whose number is in r1 

bis $40000,(r5) / set bit 14 of the 1st word of the I/O 
; / buffer 


bit $22000,(r5) / are 10th and 13th bits set (read bits) 
beq 1f / no 

cmp cdev,$1 / disk or drum? 

ble 2f / yes 

tstb uquant / is the time quan‘ um = 0? 

bne 2f / no, 2f 


mov r5,-(sp) / yes, save r5 (buffer address) 

jsr r0,sleep; 31. / put process to sleep in channel 31 (tape) 
mov (sp)+,r5 / restore r5 

br 1b / go back 


2: / drum or disk 
jsr r0,idle; s.waitt2 / wait 
, br 1b 
1: / 10th and 13th bits not set 
bic $40000,(r5) / clear bit 14 


jsr r0,tstdeve / test device for error (tape) 
add $8,r5 / r5 points to data in I/O buffer 
jsx x0 ,dioreg / do bookkeeping on u.count etc. 


/ x5 points to beginning of data in I/O buffer, r2 points to beginning 
/ of users data 
movb (r5)+,(r2)+ / move data from the I/O buffer 


dec r3 / to the user’s area in core starting at u.base 
tst u.count / done 
beq 1f / yes, return. 
tst -(ro) / no, point rO to the argument again 
br bread / read some more 
is 
mov (sp)+,r0 / jump to routine that called readi 
jmp ret 
bwrite: / write on block structured device 
jsx r0,tstdeve / test the device for an error 
mov *u.fofp,r1 / put the block number in r1 
cmp ri,(r0)+ / does block number exceed maximum allowable # 
bhis errori0 / yes, error 
ine *u.fofp / no, increment block number 


jer r0,wslot / get an I/O buffer to write into 
jsr r0,dioreg / do the necessary bookkeeping 
1: / r2 points to the users data; r5 points to the I/O buffers data area 
movb (r2)+,(r5)+ / 3 x3, has the byte count 
dec r3 / area to the I/O buffer 


bne 1b 
jsr r0,dskwr / write it out on the device 
tst u.count / done 


beq 1f / yes, 1f 
tst -(r0) / no, point rO to the argument of the call 
br bwrite / go back and write next block 

1: 
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mov 
jmp 


UNIX IMPLEME? TATION 


(sp)+,r0 / return to routine that called writet 
ret 


tstdeve: / check whether permanent error has occured on special file 


/ I/o 


mov 


tstb 


bne 
rts 


clrb 


errori0: 
jmp 


dioregs: 
mov 
cmp 


blos 


mov 
13 

mov 

add 

sub 

add 

rts 


prereads 
jer 


bis 
jsxr 


clr 
rts 


daskrd: 
jsr 


wslots 
jsr 


Issue D Date 


cdev,r1 / only works on tape: ri has device # 
deverr(ri) / test error bit of device 

1f£ / error 

r0 / device okay 


deverr(r1) / clear error 


error / see ‘error’ routine 


u.count,r3 / move char count to r3 
x3, $512. / more than 512. char? 
1f£ "7 no, branch 

$512.,r3 / yes, just take 512. 


u.base,r2 / put users base in r2 
r3,u.enread / add the number to be read to Ginveaa 
¥3,u.count / update count 

r3,u.base / update base 

rO / return 


r0,bufaloc / get a free I/O buffer (r1 has block number) 
br 1f / branch if block already in a 1/0 buffer 
$2000,(r5) / set read bit (bit 100 in I/O buffer) 
r0,poke f/ perform the read 


*#éps / ps = 0 
r0 


r0,bufaloc / shuffle off to bufaloc; get a free I/O buffer 
br 1£ 
$2000,(r5) / set bit 10 of word 1 of I/O queue entry 
/ for buffer 
r0,poke / just assigned in bufaloc; bit 10=1 says read 


* 


$ps 
$22000,(r5) / if either bits 10, or 13 are 13; jump to idle 
1£ 
r0,idle; s.wait+2 
1b 


$8,r5 / r5 points to first word of data in block just read 
in 
r0 


r0,bufaloc / get a free I/O buffer; pointer to first 
br 1f / word in buffer in r5 
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UNIX IMPLEMENTATION 


bit $22000,(r5) / check bits 10, 13 (read, waiting to read) 
/ of I/O queue entry 
beq 1£ / branch if 10, 13 zero (i.e., not reading, or waiting 


/ to read) 
jsx r0,idle; s.waitt+2 y if buffer is reading or writing to read, 
idle 
br 4b / till finished 


bis $101000,(r5) / set bits 9, 15 in 1st word of I/O queue 
(write, inhibit bits) 


elr *$ps / clear processor status 
add $8,r5 / r5 points to first word in data area for this 
/ block 
rt:: rd 
dskwr: 
bic $100000,*bufp / clear bit 15 of I/O queue entry at 
/ bottom of queue 
ppokes: 
mov $340,*$ps 
jsxr r0,poke 
clr *$ps 
rts ro 
pokes 
mov r1,-(sp) 
mov r2,-(sp) 
mov r3,-(sp) 


mov $bufptnbuf+nbuf+6,r2 / r2 points to highest priority I/O 
/ queue pointer 


mov -(r2),r1 / ri points to an I/O queue entry 
bit $3000,(r1) / test bits 9 and 10 of word 1 of I/O queue 
/ entry 


beq 2£ / branch to 2f if both are clear 

bit $130000,(r1) / test bits 12, 13, and 15 

bne 2f / branch if any are set 

movb (x1),r3 / get device id 

tstb deverr(r3) / test for errors on this device 


beg 3£ / branch if no errors 

mov $—-1,2(r1) / destroy associativity 
clrb 1(ri) / do not do I/o 

br 2f 


cmpb 7r3,$1 / device id = 13; device is disk 
blt prf / device id = 0; device is drum 
bgt pte / device id greater than or equal to 13; device is 
/ dec tape 
bit $2,active / test disk busy bit 
bne 2f / branch if bit is set 
bis $2,active / set disk busy bit ) 
mov ri,ckap / rkap points to current I/O queue entry for disk 
mov 2(r1),mq / put physical block number in mq 
mov $12.,div / divide physical block number by 12. 
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prf: / drum 
bit 
bne 
bis 
mov 
mov 
clr 


movb 


clr 
movb 


mov 


pte: / tape 


mov 


UNIX IMPLEMENTATION 


I/o 


$rkdat+2,r3 / 
ac,-(sp) / put remainder from divide on stack; gives 
/ sector number 
$4,1sh / shift quotient 4 bits, to align with cyl and surf 
/ bits in rkda 
mqa,(sp) / or mq with sector; gives total disk address 
3f : 
$1,active / test drum busy bit 
2f / branch if bit is set 
$1,active / set drum busy bit 
r1,rfap / rfap points to current I/O queue entry for drum 
$daet2,r3 
-(sp) 
2(r1),1(sp) / move low byte of physical block number into 
/ high byte of stack 
-(sp) / word 
3(r1),(sp) / move high byte of physical block number into 
| f low byte of stack 
(sp)+,-(r3) / load dae with high byt of physical block 
/ number 
(sp)+,-(r3) / load rkda register; load dar register 
6(r1),-(r3) / load bus address register 
4(r1),-(r3) / load word count register 
$103,-(sp) / 103 indicates write operation when loaded 
/ in esr 
$2000,(r1) / if bit 10 of word 1 of I/O queue entry is 
a one 
3f£ / then read operation is indicated 
$105,(sp) / 105 indicates read operation 
(sp)+,-(r3) / load esr with interrupt enabled, command, go 
seta 
$4,active 
2f 
tecm,r3 
r3 
$17,r3 
$2,r3 
r3,(r1) 
3f 
$1,tccm / stop transport if not same unit 
$4, active 
r1,tcap 
$20.,tcerre 
$tapei,tcstate 
(r1),r3 / device 
$2,r3 / now unit 
r3 
$103,r3 / now rbn,for,unit,ie 
r3,tccm 


seta: / 1/0 queue bookkeeping; set read/write waiting bits. 


mov 
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(r1),r3 / move word 1 of I/O queue entry into r3 
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mov 
rts 


bufaloc: 
mov 
mov 
clr 
MOV 


mov 


bit 
bne 


mov 


cmpb 


bne 
emp 


bne 
tst 
br 


cmp 
blo 


mov 
bne 


jsr 
br 


tst 


mov 


movb 


mov 
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UNIX IMPLEMENTATION 


$13000,r3 / clear all bits except 9 and 10 

$3000,(r1) / clear only bits 9 and 10 

r3 

r3 

r3 

r3,(r1) / or old value of bits 9 and 10 with bits 12 
/ and 13 


r2,$bufp / test to see if entire I/O queue has been 
/ scanned 

1b 

(sp)+,r3 

(sp)+,r2 

(sp)+,r1 

ro 


r2,-(sp) / save r2 on stack 
$340,*sps / set processor priority to 7 


-(sp) / vacant buffer 
$bufp,r2 / bufp contains pointers to I/O queue entrys 
/ in buffer area 


(r2)+,r5 / move pointer to word 1 of an I/O queue entry 
into r5 
$173000,(r5) / locktkeeptactivetoutstanding 
3£ / branch when any of bits 9,10,12,13,14,15 are set 
/ (iee., buffer busy) 
r2,(sp) / save pointer to last non-busy buffer found 
points to word 2 of I/O queue entry) 


(x5),cdev / is device in I/O queue entry same as current 
/ device 

3£ 

2({r5),r1 / is block number in I/O queue entry, same as 
/ current block number 

3f 

(sp)+ / bump stack pointer 

1f / use this buffer 


42, $bufp+nbuf+nbuf 
2b / go to 2b if r2 less than bufptnbuftnbuf (all 
/ buffers not checked) 
(sp)+,r2 / once all bufs are examined move pointer to 
/ last free block 
2f / if (sp) is non zero, i.e., if a free buffer is 
/ found branch to 2f 
r0,idle; s.wait+2 / idle if no free buffers 
tb 


(r0)+ / skip if warmed over buffer 


—(r2),r5 / put pointer to word 1 of I/O queve entry in r5 
edev,(r5) / put current device number in I/O queue entry 
r1,2¢r5) / move block number into word 2 of I/O queue 

ID IMO.1—1 Section E.8 


3/17/72 Page 6 


UNIX IMP}. ‘ENTATION 


/ entry 


cmp r2,$bufp / bump all entrys in bufp and put latest assigned 
blos 1f / buffer on the top (this makes if the lowest priority) 


mov -(r2),2(r2) / job for a particular device 
br —s 1b 
13 
mov r5,(r2) 
mov (sp)+,r2 / restore r2 
rts r0 
tape: / dec tape interrupt 
jer r0,setisp / save registers and clockp on stack 
mov testate,r3 / put state of dec tape in r3 
jsr rO,trapt; tcem; tcap; 4 / busy bit 


mov r3,pe / device control status register 
/ if no errors, go to device state (an address) 


taper: / dec tape error 
dec tcerre / decrement the number of errors 
bne 4i / 1£ more than 1 branch 
movb 1(r2),r3 / r2+1 points to command register upper byte 
bic $17,r3 / clear all but bits 8-10 (Unit Select:.on) 
incb deverr+2(r3) / set error bit for this tape unit 
br ' tape3 
4: / more than 1 error . 
bit $4000,(r2) / direction of tape 
beq if / if forward go to 1f 
bie $4000,(r2) / reverse, set to forward 
mov $tapet,tcstate / put tape 1 in the state 


br of 

1: / put tape in reverse 
bis $4000,(r2) / set tape to reverse direction 
mov $Stape2,tcstate / put tape 2 as the state 

0: 
bis $4,active / check active bit of tape 
movb $103,(r2) / set read function and interrupt enable 
br 4f / go to retisp 

tapet: / read bn forward 
mov $tcedt,rO / move address of data register to r0 
cmp (r0),2(r1)} / compare block addresses 


bit Ob / if 1t, keep moving 

bgt taper / if gt, reverse 

mov 6(r1),-(r0) / put bus address in tcba 

mov 4(r1),-(r0) / put word count in tewe 

mov $115,-(sp) / put end interrupt enable, 

bit $20000,(r1) / is waiting to read bit of I/O queue set? 
beq 1f / no, if 

mov $105, (sp} / yes, put and interrupt enable 


movb (sp)+,(r2) / move function into command register (tccm) 


bis $4,active / set active bit 
mov $tape3,tcstate / get ready for I/O transfer 
br 4£ / go to retisp (rti) 


tape2: / read bn bakasswards 
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UNIX IMPLEMENTATION 


mov tedt,rO / rO has contents of data register 
add $3,r0 / overshoot 

cmp r0,2(r1) 

bgt Ob / if gt keep reading 

br taper / else reverse 


tape3;: / r/o transfer. 
bic $30000,(r1) / clear bits 12 and 13 of I/O queue entry 
jsr r0 poke / ao the I/9 
bit $4, sce / still : sy see if pick up r-ahead, w—behind 
bne 1£ /y . 
movb $1, (23) 7, no, indicate too bad 


jsxr rO,wakeup; runq; 31. / wait up 
br 4f / retisp 
drum: / interrupt handler 
jsr r0,setisp / save r1,r2,r3, and clockp on the stack 
jsr r0,trapt; des; rfap; 1 / check for stray interrupt or 
/ error 
br 3f£ / no, error 
br 2f / error 
disk: 
jsr r0,setisp / save r1,r2,r3, and clockp on the stack 
jmp *SOf 
O03 , 
jsr rO0,trapt; rkcs; rkap; 2 
br 3£ / no, errors 
mov $115,(r2) / drive reset, errbit was set 
mov $1f, bb-2 / next time jmp *SOf is executed jmp will be 
/ to 1f 
br 4f 
13 
bit $20000,rkcs 
beq 4£ / wait for seek complete 
mov $0b, 0b~-2 
mov rkap,r1 
23 
bit $3000,(r1) / are bits 9 or 10 set in the 1st word of 
/ the disk buffer 
bne 3£ / no, branch ignore error if outstanding 
inc xr 
asr (r1) 
asr (r1) 
asr (r1) / reissue request 
dec rt 
33 
bic $30000,(r1) / clear bits 12 and 13 in 1st word of buffer 
mov ac,-(sp) 
mov mq,-(sp) / put these on the stack 
mov sc,-(sp 
jsr r0,poke 
mov (sp)+,se 
mov (sp) +,mq / pop them off stack 
mov (sp)+,ac 
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UNIX IMPLEMENTATION 


4s 
jmp retisp / u4-3 
trapt: / r2 points to the 
mov (rO)+,r2 / device control register 
mov *(rO)+,r1 / transaction pointer points to buffer 
tst (sp)+ 
tstb (r2) / is ready bit of dcs set? 
bge 4b / device still active so branch 
bit (rO0),active / was device busy? 
beq 4b / no, stray interrupt 
bic (rO)+,active / yes, set active to zero 
tst (r2) / test the err(bit is) of des 
bge 2f / if no error jump to 2f 
tst (rO)+ / skip on error 
23 
jmp (r0) 
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UNIX IMPLEMENTATION 


/ tya yecerve’ in ber tag fontlley 


jsr r0,1f 
jer r0,if 
jsr r0,1£ 
jsr r0,1f 
jsxr ro,ift 


jsr r0,1f 
jsxr al Oy © 3 
jsr r0,1f 
1: 
mov ri,-(sp) 
mov r2,-(sp) 
mov r3,-(sp) 
mov clockp ,-(sp) 
mov $sesystt2,clockp 
sub $trevt4,r6 / 0%4 / calculate offset for tty causing 
asl r0O / 048 / this interrupt 
mov resr(r0),r2 
mov rebr(r0),r1 
tst r2 


blt 4£ / error 

tst tty+6 (x0) 

beq 1f 

bit. $40,r2 / parity 

bne 3£ / branch if set 

tstb tty+4(r0) 

blt 4f / 37 parity not allowed 
br 2f£ 


bitb $100,tty+t4(r0) . 
beq 2£ / non-37 parity not allowed Ze 
4 t / eee 
bic s¢7yr1 2 177 
bit $40, ttyt4(ro) 
bne 3£ / raw 
cmp ri,$177 


beq 5f 
emp r1,$34 
bne 3f 

53 
mov tty+6(r0),r0 
beq 2f 
movb r1,6(r0) / interrupt or quit 
jsr r0,wakeall 
br 2£ 

33 
cmp r1,815 / or 
bne 3f 
bit $20,tty+4(r0) 
beq 3f 
mov $12,r1 


a: 
bith $4,ttw+4(ro) 
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beg 3f 
cmp r1,$ A 
blo 3£ 
cmp r1,$ Z 
bhi 3£ 


movb tty+3(r0),0f 

jsr rO,putcs; O:.. / put char on input clist 
br 2f 

bitb $10,tty+4(r0) / echo 

bne 4f / branch echo bit set 

cmp - r1,$12 


bne 3f 
bitb $20,tty+4(r0o) / cr 
beg 3£ 
4: ; 
emp r1,$4 / is char input an eot 
beq 1f 
mov r1,-(sp) / put char on stack 
movb tty+3(r0),0f 
inc of 
jsr rO,putcs; O:.. / put char just input on output clist 
br +2 
jsr r0,starxmt 
mov (sp)+,r1 


bitb  $40,tty+4(r0) / raw 

bne 1f / branch if raw bit set 
cmp r1,$12 

beq 1f£ 

movb tty+3€r0),r1 

cmpb ec(r1),$15. 

blo 2£ 


movb tty+3(r0),0f 
jsr rO,wakeup; runq; 0:.. / call wakeup for process 


jmp retisp 


txmt: / tty x Pransmr May netigh Veoh 


jsr r0,1£ 
jsr r0,1f 
jsr r0,1f 
jsr r0,1f — 
jsr r0,if 
jsr r0,1f 
jsr r0,1f 
jsr r0,1f 


mov r1,-(sp) 

mov r2,-(sp) 

mov r3,-(sp) 

mov clockp,—(sp) 

mov $8.syst+2,clockp 


sub stxmtt+4,r0 / 0%4 / offset in cc 
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asl 
jsr 
jmp 


xmttos 
mov 
mov 
sub 
asl 
asl 
jsr 
mov 
rts 


starxmt: 
mov 
movb 


cmpb 


bhi 
mov 
inc 
jsr - 


UNIX IMPLEMENTATION 


r0 / 048 
r0,starxmt 
retisp 


r0,-(sp) 
2(sp),r0 / O0%2+6 
$6,r0 


ro 

r0 / 0%8 
r0O,starxmt 
(sp)+,70 
ro 


(sp),r1 / 0%8 r1 contains 8xtty number 

ttyt3(r1),r1 / place contents of 4th byte of "tty" 
/ puf in ri (ec,cf,cl offset) 

ect+1(r1),$10. / is char count ae tty output greater 
/ than or equal to 10 

1f / yes 

r1,0f / no, make offset an arg of "wakeup 

of "7 increment arg of wakeup 

rO,wakeups; runqt23 Ose / wakeup process identified 

/ by wlist 


1: / entry specified by argument in 0: 


mov 
asr 
asr 
asr 
tstb 
bne 
mov 
tstb 


bge 
movb 
clrb 
tst 
bne 
movb 
ine 


jsr 


bic 
movb 


bge 
bisb 
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(sp),r1 / 0%8 / x1 contains 8xtty number 

ri 

ri 

ri / 0%1 r1 contains tty number 

toutt+3(ri1) / is tout entry for tty output = 0 

1f / no, return to calling routine 

(sp),r2 / yes, place (8xtty number) into r2 

tcesr(r2) / does tty’s tcsr register = 0 (is ready 

/ bit = 0 

1f / yes, return to calling routine 

He] Or ee / no, place third byte of “tty” buf 
/ into r1 (char left over after 1f) 

ttyt+2(r2) / clear ee byte 

ri / is third byte = 

3f / no, r1 contains : non nul character 

tty+3(r2),0£f / yes, make byte 4 arg of "getc . 

of / increment arg to make it tty output list of 

/ clist 

r0,getc; O:.. / obtain next character in clist for tty 
/ out and place in r1 

br 1f / if no entry in clist to be output, return to 

/ calling routine 


$1177,r1 / zero out bits 7-15 of r1 
partab(r1),r3 / move “partab entry (identified by 
/ r1) into r3 
3£ / if entry is greater than or equal to 0 (digit 
/ 2, far left digit = 0) branch 
200,r1 / if entry is less than 0 add 128 to ASC11 
/ code for char to be output 
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bic $1177,r3 / to make it teletype code and then clear 
/ bits 7-15 of x3 


mov (sp),r2 / r2 contains 8xtty number 

bit $4,resr(r2) / is carrier present for tty 

beq starxmt / no carrier flush 

mov r1,-(sp) / yes, place gharacter to be output on stack 


cmp r1,$11 / is character ht 
bne 3£ / no 
bitb  $2,tty+4(r2) / is tab to space flag for, tty set 
/ (bit 1 of byte 5 in ‘tty buffer area) 
beq 3£ / no 


mov $240,(sp) / yes, change character to space 
33 : 
mov (sp)+,tcebr(r2) / place char to be output in tty output 
/ buffer 


add Stty+1,r2 / place addr of 2nd byte of "tty" buf 
jmp 1£-2(r3) / area in r2 (which is the column count) and 
then 
inecb (r2) / normal / jmp to location determined by digits 
/ 0 and 1 of character’s entry in partab which 
/ is now in r3 


le rts r0 / non-printing 
br 1f / bs Arsen Cf] 
br 2f / nil (line feed) LF | 1 
br 3£ / tab (horizontal tab) 
br 4f vert (vertical tab) 


br 5f£ er 


dech (r2) / col decrement colum count in byte 2 of "tty" 
area 

bge 1£ / if count Do return to calling routine 

clrb (r2) / col set column count = 0 

br 1f£ 


bit $1,x1 / is bit 0 of ASC11 char = 1 (char = lf) 
bne 2£ / yes Docc 
bith $20,3(r2) / cr flag is bit 4 of 5th byte of tty 
/ area = 1 
beq 2f / no (only 1£ to be handled) 2 7 
movb $15,1(r2) / place cr in 3rd byte of tty area 
(character leftover after l1f ) 


movb (r2),r3 / place present column count in r3 


beq 1f / return to calling routine if count = 0 

clrb (r2) / col clear column count 

asr r3 

asr r3 

asr r3 

asr r3 / delay = col/16 

add $3,r3 / start to determine tout entry for tty output 
br 2f 


bith  $2,3(r2) / is bit 1 of Sth byte of “tty” area = 1 
/ (tab to space bit set) 


Issue D Pate 3/17/72 ID IMO.1~1 Section E.9 Page 4 


beq 
incb 
bith 
beq 
movb 
br 


movb 
bisb 
incb 
bis 
neg 


br 


mov 
br 


Mov 
clrb 
add 
mov 
asr 
asr 


asr 
movb 


rts 


UNIX IMPLEMENTATION 


3£ / no 

(r2) / increment column count 

$7,(r2) / are bits 0, 1 and 2 set at col 048 

1£ / no 

$11,1(r2) / yes, place ht in another tab next time 
1£ / 3rd byte of tty area (character left over after 


/ 


(r2),r3 / place column count in r3 

$7,(r2) / make bits 0, 1 and 2 of column count = 14 

(r2) / increment column count 

$!7,r3 / clear bits 3-15 of r3 

r3 / delay = dcol start to determine tout entry for 
/ tty out 

2£ / by neg r3 


$176.,r3 / delay = lots start to determine tout entry 
2f 


$10.,r3 / cr delay 160ms for tn300 start to determine 
/ tout 
(r2) / set colum count = 0 entry 


$5,r3 / time for this char, increment value for tout 
/ entry by 5 ? 
(sp),r2 / 0%8 r2 contains 8xtty number 
r2 
r2 ; 
r2 / 0%1 r2 contains tty number 
r3,touttt+3(r2) / place value for tout entry into tout 
/ table 


rO / return 


partab: / contains 3 digits for each character; digit 2.is used 
/ to determine if 200 is to added to ASC11 code digits 0 


/ and 
ebyte 
byte 
ebyte 
ebyte 
ebyte 
ebvte 
ebyte 
»byte 
ebyte 
ebyte 
ebyte 
ebyte 
ebyte 
ebyte 
ehyte 
ebyte 


xmtt ¢ 
jsr 
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4 are used to determine value for jump table. 
002,202,202,002,002,002,002, 202 
204,010,006,212,012, 214,202,002 
202,002,002, 202,002,002, 202,002 pork etre NAK 
002,202, 202,002, 202,002,002, 202 
200 ,000 ,000, 200,000, 200,200,000 
000,200, 200,000,200 ,000,000, 200 
000 ,200,200,000,200,000,000, 200 
200 ,000 ,000, 200,000,200, 200,000 
200 ,000 ,000, 200,000,200, 200 ,000 
000 , 200,200,000, 200,000,000, 200 
000 ,290,200,000,200,000 ,000, 200 
200,'.30,000, 200,000,200, 200,000 
000, 00,200,000, 200,000,000, 200 
200 ,000 ,000, 200 ,000,200,200,000 
200 ,000 ,000,200 ,000, 200, 200,000 
000 , 200,200,900, 200,000,000, 202 


r0,cpass / get next character from user buffer area 


3/17/72 ID IMO.1—1 Section E.9 Page 5 


UNIX IMPLEMENTATION 


r1 / is character nul 
xmtt / yes, get next character 


$240,*$ps / set processor priority equal to 5 

(sp),r2 / r2 contains i node number of file 

x2 / 0%2+28 / multiply inode number by 2 

$21-,r2 / 0%2*7 / subtract 21 from 2x inumber to 

get cc, cf, cl offset 
¥2,0f / make offset arg of pute 
co(r2), $50. / is char count for device greater than 
/ or equal to 50 

2£ / yes 

rO,putc; O:.. / find location in freelist to assign to 
/ device and 

br 2f / place char in list, if none available branch 
/ to put process to sleep 

r0,-(sp) / place calling routines return address on 

/ stack 

Ob,r0 / place offset into cc, cl and cf tables in r0O 

$7,r0 / subtract seven from offset 

r0 y multiply by 2 

ro / 0%8 / multiply by 2 (rO contains 8xtty number) 

r0,starxmt / attempt to output character 

(sp)+,r0 / pop stack 

xmtt / get next character 


r1,-(sp) / place character on stack 

Ob,Of / make offset into cc, cf, cl table arg of 
/ sleep (identifies location in wlist) 

r0,sleep; O:.. / put process to sleep 

(sp)+,r1 / remove character from stack 

1b / try again 


revt: / read tty 


jsr 


$28.,r1 / 0%2 ri contains 2xtty number 


ri 

ri / ri contains 8xtty number 

rt »-(sp) 

tty+6(r1),r5 / r5 contains address of 4th word in 
/ tty area 

2(r5) / is char count = 0 

1f / no 

$40,tty+4(r1) / raw flag set? 

2f / no 


-(sp) / yes, decrement sp 

r0,revch / get character from clist 

(sp)+ / increment sp 

(sp)+;r2 / r2 contains 8xtty number 

$4,rcsr(r2) / is carrier detect bit on 

3f / no 

rO,passc / yes, place character in users buffer area 


ret 


r0,canon; revch / process a line of characters in 
/ clist and place results in tty buffer 
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tst 


tst 
beg 
movb 
inc 
dec 
jsr 


br 


jmp 


revch: 
mov 
mov 
bit 
bne 
bic 
rts 


movb 
mov 
jsr 


clr 
rts 


mov 
mov 
jsr 
mov 
br 


ocvt: 
sub 
mov 
asl 
asl 
mov 
add 
movb 


mov 
bit 
bne 
mov 


movb 
jsr 
br 


mov 
tstb 
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UNIX IMPLEMENTATION 


/ area 
(sp)+ / increment sp 


2(r5) / is char count for tty buffer = 0 

1£ / yes 

#4(r5),r1 / no, move character pointer to r1 

4(r5) / increment character pointer 

2(r5) / decrement character count 

rO,passe / place character, whose address is in 
r1, in 

1b / user buffer areas Then get next character. 


ret 


4(sp),r2 / 0%8 r2 contains 8xtty number 

$4,r1 

ri,resr(r2) / is carrier detection bit on 

1f / yes 

$1,resr(r2) / no, clear data terminal ready bit 
ro 


tty+3(r2),0£ / make cc offset arg for "getc” 
$240,*sps / set processor priority = 5 
r0,getcs; O:.. / get next character off clist 
br 2£ / clist empty 

*sps / set processor priority = 0 

ro 


Ob,O£f / make “getc” arg an arg for “sleep” 
r5,-(sp) / save tty buffer address on stack 
rO,sleep; Otee 

(sp)+,r5 

revch 


$28.,r1 / 0%2 calculate tty table offset 
r1,r2 

r1 / 044 

r1 / 0O%8 

r1,-(sp) 

$6,r2 / calculate clist id clist offset 
r2,tty+3(r1) / put clist id in tty table 


(sp),r1 

$4,resr(r1) / carrier detect bit set 

1£ / if so, branch 

$511,rcesr(ri1) / set ready, speed, interrupt enable, 
/ supervisor transmit 

tty+3(r1),0f / put clist id in sleep argument 

rO,sleeps Ose. 

1b 


ttyt6(r1),r5 / put tty buffer address in r5 
(r5) / first byte of tty buffer = 0 
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bne 1f / if not, branch 
mov $511,resr(r1) / set control bits for receiver 
mov $511,tcsr(r1) / set control bits for transmitter 


movb $210,tty+4(r1) / put 210 in tty table word 3 / set flags 
incb (r5) / ine first byte of tty buffer 


tst (sp)+ 
tst uettyp / is there a process control tty 
bne 1£ / yes, then branch 
mov r5,u.ettyp / no, make this tty the process control tty 
br 1£ / return 
ecvt; 
sub $28.,r1 
asl r1 / O%4 
asl x1 
mov ttyt+6(r1),r5 
decb (r5) 
1: 
jmp sret 
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/ ux -- 


systms 


inode: 


mount 3 
procs 


ttys 


fsp: 
bufp: 
sb0s 
sbt3: 
SWD: 
iis 
idevs 
cdevs: 
dadeverr: 
actives: 
rfap: 
rkap; 
tcaps 
testate; 
tcerrcs 
mntis 
mntds 
mpids 
Clockps 
rootdir: 
toutt; 
rungs: 


Issue D 


" Date 


UNIX IMPLEMENTATION 
unix 


exet2 

e=et128. 
ezet2 

ozet64. 
setimes 
s.syst: 
sewait: .=.+4 
seidlet:.=.+4 
s.chrgt:.=e+4 
8 -drerrs.=.t2 


o=zetd 
exzet4 


i.flgs: 
ienlks3: 
i.uids 

i.size: 
i.dskp: 
Lectims e=et4 
ismtims w=et4 
e = inodet32. 
e=ett024. 


exzet2 
o=eti 
ezett 
emet2 
=e +16. 


pepid: e=et[2*nproc] 
p.dska: .=.+[{2*nproc] 
peppid: .=.+[2*nproc] 
pebreak: o=e+{2*nproc] 
pelink: ezetnproc 
pestat; exe tnproc 


. = et+(ntty*s.] 
e=e+(nfiles*8s.] 
e=et (nbuf #2] +6 
e=et8 

exzet8 

e=et8 

e=et2 

exzet2 

exzet2 

e=et12. 

ezet2 

exet2 

exzet2 

e=et2 

ozet2 


exet2 
oe t1603 touts: ezet32. 
ome th 
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wlist: exzet40. 


cc: ezet30. 
cf: emet31. 
cls: emetSt. 
clists: eo=et510. 
imod: exet 
smod ¢ omet1 


mmod 3 ezett 
uguants:s e=.+1 
sysflg: .=.+1 
pptifig:.=e+1 
ttyoch: .=.+1 

eeven , 

e=et107.3 sstacks 
buffer: .=.+(ntty*140.] 


eo=e+(nbuf*520.] 
e = Core-64. 
user: 
UseKHPS omet2 
UeUSDS ezet2 
uer03; omet2 
uecdirs e=et2 
uefp: o=zet10. 
uefofp: exet2 
uedirps ..+2 
uenameps exet2 
u.offts e=et2 
u, base: exzet2 
uecount: e=.6t2 
uenread: e=.+2 
uebreak: e=et2 
uettyyp: ozet2 
u.dirbuf:.=et+10-5 
-uepris e=et2 
ueintrs .e=et2 
uequit: .e=.+2 
ueemts exet2 
ueilgins:.=.+2 
uecdev; e=et+2 
ueuids exeti 
ueruid: .=.+1 
u.bsys? e=eti 
u.eunods ex=et! 
e = core 
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/ sh ~~ command interpreter 
mov sp,r5 
mov r5,shel laro / save oria sp in Shel lara 
cdpb B(rs),$%~ 4 was this sh calledzd by init or loginx™ 
pne 2f /# no 
sys intr: O 7 yes, turn off interrupts 
svs quits O 
2: 
Sys getuid / who is user 
tst ro / is it superuser 
bne 2f / no 
movb $f7#,at / yes, set new prompt syinbol 
Qe 
cmp (r5),$1 7 ttv input? 
ble newline / yes, call with ’-(or with no command 
/ file name) 
clr rO / no, set ttv 
sys close / close it 
mov 4(r5),0f / get new file name 
sys open; O:..3 O / open it 
bec tf 7 branch if no error 
jisr r5,error / error in file name 
/<Input not found\n\O>$% .even 
sys exit 
[2 
ely at / clear prompt character, if reading non-tty 
/ input file 
newlines 
tst at / is there a prompt symbol 
beq newcom / no 
mov $1,rO0 / yes 
sys writes at: 2. / print prompt 
newcoms 
nov shellarg,sp / 
mov Sparbuf,r3 / initialize command list area 
mov S$parp,r4 / initialize command list pointers 
clr infile / initialize alternate input 
clr outfile / initialize alternate output 
clr glflag / initialize global flag 
newarg? 
jsr pc,blank / squeeze out leading blanks 
jsr r5,delim / is new character a # \n or 8 
br 2f / yes 
mov r3,-(sp) / no, push ara pointer onto stack 
cmp r0,$%< / new input file? 
bne lf / no 
mov (sp),infile / yes, save arg pointer 
clr (sp) / clear pointer 
br 3f 
fs 
cmp r0,$“> / new outvout file? 
bne newchar / no 
mov (sp),outfile / ves, save arg pointer 
clr (sp) / clear pointer 
br «bt 
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newchars 


cmp $¢ ,rO “4 is character a blank 
beq lf / branch if it is (blank as ara separator) 
cmn $/\nt200,r0 / treat \n preceded by \ 
beq if / as blank 
dsr pe, pute / put this character in parbuf list 
jsr pc, gete / get next character 
jsr r5,delim / is char a # \n or 8 
br if / ves 
br newchar / no, Start new character tests 
ls 
clrb (r3)+ 4 end name with \O when read blank, or 
/ delim 
mov (sp)+,(r4)+ / move arg @pt¥ to par P location 
bne lf “7 if (sp)=0, in file or out file points to ara 
tst -(r4) / so iqnore dummy (0), in pointer list 
ts 
Jjsr r5,delim / is char a # \n or & 
br 2f / yes 
br newarg / no, start newarg processing 
2: 
clr (r4) “7 \n, & or 3 takes to here(end of arg list) 
/ after “delim’ call 
mov rO,-(sp) / save delimter in stack 
jsr pc,docom / go to exec command in parbuf 
cmpb (sp),$%& / get a new command without wait? 
beq newcom / yes 
tst rl / was chdir just executed or line ended with 
/ ampersand? 
beq 2f / yes 
1s 
sys wait / no, wait for new process to terminate 
“7 command executed) 
bcs 2f / no, children not previously waited for 
cmp rO,ri / is this my child 
bne Ib 
2t 
cmp (sp),$“\n / was delimiter a new line 
beaq newline / yes 
br newcom / no, pick up next command 
docoms 
sub Sparp,r4 / put arg count in r4 
bne {f / any arguments? 
clr rl / no, line ended with ampersand 
rts pe / return from call 
3 
jsr r5,chcoms qchdir / is command chdir? 
br 2f / command not chdir 
cmp r4,$4 / prepare to exec chdir, 4=arg count x 2 
beo 3f 
dsr rS,error / ao to print error 
<Ara count\n\G>3 .even 
br Af 
3% : 
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mov parpt2,0f / more directory nane to svs ceil 
sys chdirs O:0 / exec chdir 
bec 4f / no error exit 
jsr r5,error / go to print error 
<Bad directory\n\0>% «even 7 this diagnostic 
4t 
clr rl / set rt to zero to dkin wait 
rts pe / and return 
2s 
jsr r5,chcom$s qlogin / is command login? 
br 2f / not login, ao to fork 
sys exec} parbufs parp / exec login 
sys exec} binpbs parp / or /pin/login 
2: / no error return?? 
sys fork / generate sh child process for command 
br newproc / exec command with new process 
bec If / no error exit, old process 
jsr r5,error / go to print error 
<Trv again\n\O>3 .even 7 this diagnostic 
jmp newline / and return for next try 
ls 
mov rO,r! / save id of child sh 
rts pc / return to "Jjsr 0C, docom" call in parent sh 
error? 
movb (r5)+,och 7 pick up diagnostic character 
beq if / O is end of line 
mov $1,r0 / set for tty output 
sys write: och$ 1! 7 print it 
br error / continue to get characters 
{3s 
inc r5 / inc r5 to point to return 
bic $1,r5 / make it even. 
clr rO / set for input 
sys seek3.0% 2 / exit from runcom, skip to end of 


/ input file 
chcomt / has no effect if tty innut 


mov (r5)+,rl / glogin achdir rl, bump r5 

mov $parbuf,r2 / command address r2 “login’ 
1.2 ; 

movb (ri)+,r0 / is this command “chdir?’ 


cmpb (r2)+,r0 / compare command name byte with “login?” 
/ or “’chdir’ 


bne 1f / doesn’t compare 

tst rO / is this 

bne Ib / end of names 

eS. (r5)+ / yes, bump r5 again to execute login 

/ chdir 

lt 

rts r5 / no, return to exec command 
putcs 

cmp r0,$’% / sinale quote? 

beq lf 7 yes 

cmp r0,$¢" / double quote 

beq If / ves 
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bic StL T%,r0 / Noy repove 200, FF Present 
MoV rO,(r3)+ 7 store character am porhue 
rts ‘ale 
[t 
nov rO,-(sp) / push quote mark onto stack 
13 
JSF pe,agetc / get a guoted character 
emp { r0O,$%\n 4 is it end of line 
bne 2f / no 
jsr r5,error / yes, indicate missing gucte inark 
<"¢ imbalance\nNO>} .even 
jmp newline / ask for new line 
23 
cmp r0,(sp) / is this closing quote mark 
beg tf 7 yes 
bic $!i77,r0 / no, strip off 200 if present 
movb rO,(r3)+ / store quoted character in parbuf 
br Ib / continue 
{3s 
tst (sp)+ / pop quote mark off stack 
% rts pce*, return 


7 thp*e new process 


newproc? 
mov infile,Of / move pointer to new file name 
beq lf / branch if no alternate read file oiven 
tstb xOf 
beq 3f / branch if no file name given 
clr rO / set tty innut file name 
sys close / close it 
sys opens O2..3 O / open new input file for reading 
bec If / branch if inout file ok 
32 
jsr r5,error / file not ok, print error 
<Input file\n\O>3 .even 7/7 this diagnostic 
sys exit / terminate this process and make parent sh 
13 
mov outfile,r2 / more pointer to new file name 
beq 1f / branch if no alternate write file 


cmpb (r2),$%> / is > at beginnina of tile name? 
bne 4f / branch if it isn’t 


inc r2 / yes, increment pointer 
mov r2,0f 
SVS open? O:..3 ! 4 open file for writing 
bec 3f “ if no error 
4% 
mov r2,0f 
sys creat; Of..3 17 / create new file with this name 
bec 3f / branch if no error 
2: 
jsr r5,error 
<Outnut file\n\O>$s .even 
SYS exit 
32 
sys close / close tne new write file 
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delims 


blanks 


getc3 
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mov 
mov 
sys 
sys 


sys 


tst 
bne 
SVS 
sys 


sys 


bes 
mov 
mov 
SVS 


jsr 
sys 


mov 
sys 
br 


cmp 
beq 
cmp 
beq 
cmp 
beq 
cmp 
beq 
cmp 


bne 
inc 
tst 
rts 
jsr 
cmp 
beq 
cmp 


beq 
res 
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r2,0f / move new name to open 

$l,rO0 / set tty file name 

close / close it 

open? O%..% | 7 open new output file, it now has 
/ file descriptor | 

seeks 03 2 / set pointer to current end of file 


glflaqg 7 was *, ? or [ encountered? 

If / ves 

exec3 parbuf$ parp / no, execute this command 
exec} binobs parp / or /bin/this command 


stat} binpbs; inbuf / if can’t execute does it 
/ exist? 
2f / branch if it doesn’t 
$shell,paro-2 / does exist, not executable 
Sbinpb,parp 7 so it must be 
exec} shell: parp-2 / a command file, get it with 
/ sh /bin/x (if x name of file) 
r5,error / a return for exec is the diagnostic 
<No command\n\O>$ .even 
exit 
$glob,parp-2 / prepare to process *,? 
exec$ oglob$ parp-2 / execute modified command 
2b 
r0,$¢\n / is character a newline 
r0,$“& / is it & 
r0,$73 “7 is it 3 
rO,$7? / is it ? 
r0,$’( / is it beginning of character string 
/ (for glob) ; 
2f. 
glflag / ? or * or [ set flag 
(r5)+ / bump to process all except \n,3,é& 
r5D 


oc,getc / get next character 
$’ ,rO / leading blanks 


blank / ves, “squeeze out’ 


r0,$200+’\n / new-line preceded by \ is translated 
blank / into blank 


pe 
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38 


getbuf: 


Issue D- Date 


tst 
bne 
mov 
cmp 
bne 
Jjsr 
br 


movb 
Mov 
bis 


clr 
cmp 
beq 
cmp 
beq 
rts 


mov 
br 


movb 


beq 
inc 
rts 


clr 
br 
Jjsr 
sub 
cmp 
clos 
mov 


mov 


inc 
cmp 
bge 
asl 
add 
MOV 
br 


mov 
mov 
mov 


dec 


mov 


UNIX DTHPLEMERD AP TON 


param / are we substituting for Sn 

2t / yes ' 

inbufp,rl 4 no, move normal input pointer to rl 
ri,einbuf / end of input Line? 

If / no 

pc,aetbuf / yes, put next console line in buffer 
getc ; 


(r1)+,r0 / move byte from inout buffer to rO 

rl,inbufp / increment routine 

escap,rO / if last character was \ this adds 
/ 200 to current character 

escap / clear, so escap normally zero 

rO,$’\\ / note that \\ is equal \ in as 

If 

r0,$’$ / is its 

3f / yes 

pce / no 


$200,escap / mark presence of \ in command line 
getc / get next character 


xparam,rO / pick up substitution character put in 
/ rO 
If / if end of substitution arg, branch 
param / if not end, set for next character 
pe / return as thous character in ro is normal 
/ input 


param / unset substitution pointer 
getc / get next char in normal input 


pce,getc / get digit after §$ 

$70,r0 / strip off zone bits 
r0,$9. / compare with digit 9 

if / less than or equal 9 

$9.,r0 / if larger than 9, force 9 


shellarg,rl / get pointer to stack for 


/ this call of shell 
rO / digit +} 
rO,(ri) 7 is it less than # of args “in this call 
getc / no, ignore it, so this $n is not replaced 
rO / yes, multiply by 2 (to skip words) 
rOl,rO / form pointer to arg pointer (-2) 
2(r0O),param “7 more arg pointer to param 
getc / go to get substitution arg for $n 


Sinbuf,rO / move input buffer address 
rO,inbufp / to input buffer pointer 
rO,einbuf / and initialize pointer to end of 
“7 character strina 
rO / decrement pointer so can utilize normal 
/ 1100p starting at If . 
r0,Of / initialize address for reading Ist char 
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vv Ube THELEN TATIO: 
{3 
inc Of / this routine filles inbuf with lina from 
f consele ~ if there is one 
clr. rO “/ set for tty inout 
sys reads 0:03; 1 / read next char into inbuf 
bes xiti / error exit 
tst rO / a zero input is end of file 
beq xit!l / exit 
inc einbuf / eventually einbuf noints to \n 
, / (+1) of this line 
cmp Ob, $inbuf +256. / have we exceeded input buffer size 


bhis xiti 7 if so, exit assume Some sort of binary 
cmpb *0D,$%\n 4 end of line? 


bne Ib “7 no, go to get next char 
rts oc / yes, return 
xitls 
sys exit 
quest? 
<?\n> 
ats 
<@ > 
qchdir?: 
<chdir\0> 
glogin: 
<login\Q> 
shells: 
</bin/shN\O> 
glob: 
</etc/glob\o> 
binpbs 
</bin/> 
parbuf: .=.+1000. 
eeven 


params ,=.+2 
glflag: .=.+2 
infile: .=.+2 
outfilet.=,+2 
e=.t+2 / room for glob 

parp?: e=.+200. 
inbuft .=.4+256. 
.escapt .=.+2 
inbufpt .=.42 
einbuf: .,=.+2 
ochs o=.t2 
Shellarg:.=.+2 
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/ init -- process control initialization 
mount = 21. 


sys intr; 0 / turn off interrupts 
sys quit; 0 

cmp csw,$73700 / pie t user? 

bne 1f / no 


help: 
clr r0 / yes 
sys close / close current enc: 
MOV $1,r0 / and write . 
sys close / files 
SVS open; ctty; 0 / open control tty. 
sys open; ctty; 1 / for read and write 
sys exec; shell; shelip / execute shell 
br help / keep trying 
1: 
mov $’'0,xr1 / prepare to change 
13 
movb ri,tapx+8 /. mode of dec tape drive x, where 
sys chmod; tapx; 17 / x=0 to 7, to penc/Mr tts by owner or 
ine ri es non-owner mode 


cmp r1,$°8 / finished? 

blo 1b "7 no ; 

sys mount; rk0; usr / yes, root file on mounted rko5 
/ disk is /usr 

sys creat; utmp; 16 / truncate /tmpfutmp 


sys close / close it 

movb ¢’x,zerot8. / put identifier in output puffer 
jex pe.wtmprec / go to write accting info 

MOV $itab,ri / address of table to r1 


/ create shell processes 


“4s : 

mov (ri)}+,r0 / °x, x=0, tees to x0 

beq 1£ / branch if table end 

movb r0,ttyxt+8 / put symbol in 

jer pe,dfork / go to make new init for this ttyx 

mov r0,(r1)+ / save child id in word offer "O, “Tyee setce 
br 1b "7 set up next child 


/ wait for process to die 

is 
sys wait / wait for user to terminate process 
mov $itab,ri / initialize for search 


/ search for process id 


2: 
tst (x1)+ / bump r1 to child id location 
beq 1b / ? something silly 
emp r0,(r1)+ / which process. has terminated 
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hie ch / not this one 


/ ten> mare ouk of utmp 

scab sé,c4 / process is found, point x" to °x 
/ for it 

InOV ri,~(sp) / save address on stack 
mao em },r1 / move ’x to r1 
aoe é°O,x1 / remove zone bits from character 
asl - x4 / generate proper ; 
asl ri / offset 
ash ri / for 
asl ri / seek 
mov r1,0f / move it to offset loc for seek 
mov $zero,rt 

2% 
ely (r1)+ / ccear- 
cap r1,$zeroti6é. / output buffer 
blo 2b 2, area 
Sys open; utmp; 1 / open file for writing 
bes 2f / if can’t open, create user anyway 
mov r0,r1 / save file desc 
sys seek; O:..3 O / move to proper pointer position 
mov ris r0 / not required 
sys writes zero; 16. / zero this position in 
mov r1,r0O / restore file descriptor 
sys close / close file 


/ re-create user process 


23 
mov (sp)+,r1 / restore °’x to r1 
mov  (r1)+,r0 / move it to r0 
movb xr0,ttyx+8 / get correct ttyx 
movb r0,zerot+8 / move identifier to output buffer 
jsx pe,wtnprec / go to write accting into 
jsr pc,dfork / fork 
mov r0,(r1)+ / save id of child 
br 1b / go to wait for next process end 
dfork: 
mov r1,r2 
sub $itab+2,r2 / left over 
asl r2 / from previous 
asl r2 / version of code 
mov r2,offset 
sys fork 
br 1f / to new copy of init: 
bes afork / try again 
rts pe / return 
1: 
sys quits; O / new init turns off . 
sys intr; O / interrupts 
sys chown; ttyx; 0 / change owner to super user 
sys chmod; ttyx; 15 / changemode to read/write owner, 


f/ write non-owner 
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sys open; ttyx; 0 / open this ttyx for reading 
/ and wait until someone calls 
bes help1 / branch if trouble 


sys open; ttyx; 1 / open this ttyx for writing after 


. / user call 
bes help1 / branch if trouble 
sys exec; getty; gettyp / getty types <legin> and 


executes login which logs user 


/ in and executes sh- 
sys exit / HELP! 


jmp help / trouble 


sys time / get time 


mov ac,zerot10. / more to output 
mov mg,zerot+t2. / buffer 

sys open; wtmp; 1 / open accounting file 
bes 2f 
mov r0,r2 / save file descriptor 

sys — seek; 0; 2 / move pointer to end of file 
mov x2, r0 / ee required 

sys write; zero; 16. / write accting info 
mov r2,r0 / restore file descriptor 

sys close / close file 
rts pe 

</dev/tty\0> 

</bin/sh\0> 

<-\0> 
Pao ea es 

</dev/rk0\0> 
</tmp/utmp\o> 
</tmp/wtmp\o0> 

</dev/ttyx\a> 
<fete/getty\o> 
</usr\0> 

eeven 

shellm 
0 


gettyp: getty 
0 


e¢ 


ee 


ee 


we we we OF we Ft we WO 


ees een ane 
ONOURWN AO 


Issue D Date 3/17/72 ID IMO.1~1 Section E.12 Page 3 


offset: exet? 
ZEXOs exetGes omet! 
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4. Overview 


The code of UNIX is @ivided into 11 files, named uO through u 
and ux. ux contains the definitions of the system tables and 
data arees; the actual code is in the other sections. These 
files are assembled teoyether in the order uO eee U9 ux. The boot 
Procedures section of the Urs Geereane now to test and install a 
newly assembied system, 


There are three major portions of UNIX: the file system, the 
process control system, and the rest. "The rest’ refers mostly 
to the code implementing several miscellaneous system calls which 
do not fit neatly into any category. Unfortunately the various 
parts of UNIX are fairly well strewn about its constituent source 
files, The following is a rough Key: 


ud initialization 
ul system entry; some system calls 
u2 most remaining system calls 
u3 process switching, swapping 
u4 character-oriented device interrupt time routines, except 
DC~-14 
uS basic file system routines 
u6é more file system routines 
u7 more file system, character-orilented device non-interrupt 
time routines 
u8 interrupt and non-interrupt time routines for block structured 
devices (disks, tape) 
-u9 almost all code for DC-11 asynchronous communications interfaces 


It has been mentioned parenthetically that UNIX is not very modu- 
lar. Its lact of modularity is. reflected in this document, 
Therefore (to paraphrase Fenichel and Mcilroy referring to their 
description of TMGL) no single order of reading can be 
recommended; instead a chimneying technique is suggested, climb~ 
ing not one wall ata CAMs but all simultaneously. 


Ze ee re of the data base. 


A description of each item in the data base is given in Section 
F. In core data is defined in ux 


3. System entry and exit 


The system can legitimately be entered only by some sort of trap. 
The trap caused by the trap instruction (that is, sys) and all 
otherwise unknewn traps are directed to one of the synonymous 
labels unkni or sysent. There the registers are saved in the 
‘following order: ote te ; . 


r0 


: eee 
r5 
ac 
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mq 
sc 


KR pointer to the stack (after the save) is retained. Then the 
testes being comecuted at the time of the trap is examined to 
see whether it represents a legitimate system call. If so, a 
jump is made to the proper routine; if not, to the label badsys. 
Whenever the system is entered by this route, a flag is set to 
indicate that syster code is being executed. No traps, including 
system calls, are allowed witnin the system. 


To exit from @ system call, a call handler jumps either to sysret 
to error. The only difference is that in the latter case the 
error bit (c-bit) is set in the word from which the processor 
status will be restored. 


At sysret, a check is made to determine the last-mentioned i-node 
the super-block, or the dismountable super block have been 
modified; if so, the I/O to write out the appropriate area is 
started via ppoke,. Then a check is made to determine if the 
user’s time quantum ran out during his execution in the system. 
If so, tswap is called to give another user a chance to run. The 
registers are restored and an rti is executed to return to the 
user’s program. 


Label badsys is reached either because the user executed an ille- 
gal trap-type instruction or because a t~bit trap occurred. (The 
t-bit is used to implement the quit function.) badsys calls the 
appropriate internal routines to write out a core image file in 
the user’s current directory, then jumps to the sysexit routine 
to terminate the process. 


4. Fork, Exit, Wait 


Fork and exit implement the creation and destruction respectively 
of processes, 


There is a fixed maximum number of processes. Each possible pro- 
cess has a slot in the process tables and a swap area on the RF 
disk associated with it. 


Label sysfork implements the fork primitive. It searches the 
p.stat portion of the process table to find an idle process slot, 
and gives an error if none is found. An entry for the new pro- 
cess is placed on the run queve and wswap is called to swap out a_ 
copy of the current process’ core image onto the new. process’ 
disk area. The fsp entry for each file open in the process is 
incremented to indicate that ce such file is open in another 
process. : 


sysexit implements process destruction. It is more complicated 
than one might think. First each open file is closed by fclose. 
The process’ status is set to unused. Then the process table is 
searched to find any children of the process. Any of these that 
have died but not waited for are marked free. a 


Issue D Date 3/17/72 ID IMO.1-1 Section F Page 2 


UNIX IMPLEMENTATION 


When the werent of the dying process is found, it is awakened (by 
eutlu) if it is waiting. Then the dying process enters a zombie 
state in which it will never be run again, but stays around until 

a@ wait is completed by its parent process. If the parent is not 

tound, the process just dies. 


syswalt implements the process wail facility. It searches the 

process table for a child process. If none is found, and error 
is returned. If a child is found in the zombie state (terminated 
but not buried by wait) its process ID is returned and its pro- 
cess slot is freed. 


If all children are still active, syswait calls swap to give up 
the processor. 


The possible states of a process (p.stat values) are: 


free, i.e., no process associated with this slot number 
active 

waiting for a child to die 

terminated, but not yet waited for (zombie). 


WN-oO 


5. Process swapping 


-The important routine is swap. When swap is called, the run 
queues are searched for the highest priority process. It is not 
the same as the process in core, core is written out to the ap- 
propriate disk area, the image of the new process is read in, and 
swap returns to the point in which it was called in the new pro- 
cess. 


If there is no process in the queues, idle is called. idle con- 
sists essentially of a wait instruction; the effect of wait is 
such that idle returns after every interrupt. swap searches the 
queues again in the hopes of ene ses: a process entered on a queue 
by the interrupt routine. ; 


The I/O to write out a core image is done by wswap. It must 
operate on a stack internal to the system. wswap uses the pro- 
gram break u.break to determine how much to write out. Usually, 
the process’ stack area is copied down to the top of the program 
area to speed up I/O. The I/O queue entry reserved for swapping 
is set up and ppoke is called to initiate the I/O. 


The core image reading routine is rswap; it also uses the system 
stack. The core image is unpacked by unpack. 


It is important to realize that running processes are not on the 
run queues. Therefore, processes which call swap must already 
have arranged to be put back on the run queues in some way. 


The tswap entry to swap is used for timer runouts; it puts the 
process on the lowest priority queue before flowing into swap. 
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& detailed de 


uncer Format 
agrams on the 


Block 
Number 


0 


eee oe 


Notes: There are 256 words/block 


Se SY EE EE OO EOE OD OE LO EE OE EN OE OS NE SSE ES SS SG SS OE Gee mee sO 
e 


eee meee evemewnn BS ee res ne me ene nnse 


ein 


scription of the file system is given in the UPM 
of File System and Format of Directories. The di- 


following pages support that write up. 


FORMAT OF FILE SYSTEM 


| oO A EN A ED ee ate A A TG > ON cal a ND EO EL A I LN ER OS SN ES GN ND SED ONE nD GE 


| number of bytes in free storage map 


eb SD FE ES SD CED Ste ee ED IED Sy NS UP ALA ae A AS RA ay ee SN ONE UE SNE SE OLED COED GND AOS UY WD OEE OED SE ao 


map 


t 
{ 
3 
i 
1 
t 
{ 
| 
' 
' 
t 
5 
( 
j 
| 
t 
t 
’ 
§ 
t 
t 
i 
i 
j 
| 
{ 
' 
5 
) 
t 
t 


number .of bytes in i-node map 


SO GR Oe SD HUD FD ane cont OEP 280 ONE RE EN GEE Sine SU GS UY SED AED END CP RD A ONS GE LD NS aA EE SE A OD wa 


. inode map 


SF OO Cn Os 0 ca ND EE OD FREE TE SOE FN TN ES OOD OD SUE OED AED SED GD OSD UE RD GED ED OAD GD OP a UD OD SD ae OED 


inode 1 


inode 16 


SD AE A AD GEE GED NOD oa SE ELD AED COE GD GRE SED ORE AEE ED RD SD OD ED GO ee AE OS A EC OD A MD ED ee Se a 


inode 17 


inode 32 


‘ 
' 
3 
{ 
i 
t 
‘ 
t 
' 
t 
j 
t 
i 
t 
| 
t 
' 
‘ 
’ 
( 
i 
' 
' 
' 
) 
f 
| 
5 
t 
1 
t 
j 
I 
\ 
j 
| 
t 


inode 33 


J 
! 
\ 
' 
H 
1 
! 
i 
: 
i 
j 
5 
‘ 
i 
i 
j 
{ 
{ 
i 
j 
t 
’ 
( 
t 
5 
5 
t 
i 
t 
t 
\ 
5 
' 
‘ 
{ 
| 
' 


ee eee 


Eaecnrerneniey | 


See page 2 


See page 3 


See page 4 


See page 6 
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1. There is 1 bit for esch block on the devitno. 
2. If the bit is o 1, the block is rece 
3. The bit for blicck k of the device is in byt: k/é 
of the map; it is offset k (meas) hits from the 
right ex. Find the bit fer bieck 100 
100 
wee os byte 12 offset = 4 
8 


block numbers f£.6. map . byte 


(See MORE Tere Pera eee eet heres rome cee 
Nees see heer es ote eee 
A RR NT LA ora PVN SNE REY Oa SERRE LI arsine Ne gS ape om al? | ee OF ee RAD OD GRE BND ete te OS ee ee oe Oe ee oo oe aoe ! 
en tee enw eee | CE AE DO el A EE I OG AB lle lt le pel MB CO. Ot ! 
ee ee ee a ena | ener ee MTree | 
ee an 66 4 oe we 008 0b 2 At 8 ok et oe a ee oe i | Saw Se cee ee ene Ae ee ee ges ce al ee A ee ce ee oP | 


Pema t an tuntenfem! 42 


| 
| 1100}99/98!97/96] 


~ 


I 
| 
bit 4 of the ss li 
| 
| 


Orn SE TE SEED CEES SENET TEND ROUND CED Geren EDD COED TED CGD NSE ED GES DP eRen anew em: 


Iesue D Date 3/17/72 2D £NO.1-1 Section F Page 5 


UNIX IMPLEMENTATION 


-INODE MAP 


Notes3 
4. The map begins with inode 41. 
2. There is 1 bit for each i-node. 
3. If the bit is a 0, the inode is free. 
4. The byte number for i-node i is byte number 
= (1-41)/8 
The offset or bit position = (1-41) mods 
Ex. i = 100 
byte number = 100-41 
wW----—- = byte 7 
8 
offset = (100-41) mod8 = bit 3 


ae one em ame On a eee emma ane et ee om en oe eee ee eee en ee | 


i-node number _ - ae : . byte 

| Ga ik cam se sue ea a cn on een cn teh ! a ar en ae eee GD SU ES Uete SF GND eae ERD GED SED AN SAD ae | 
{56 | 41} 0 
— essen renee S, one nrenenera 

3 | i 2 

| | 73] 4 
| ---— nnn nn nnn nnn | nnn nnn | 

7 if { 3 {2 {1 fo | .. 
{100}99| 98/97/96 89 | 6 
meee eam | emewen | ome | ares | em on ee ea ene gem em ee ae cme ee am ee a ae an Oe ee meee 
ee 8 
| 
| 


bit 3 of the 7th byte. 
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I-NOBES 


Notes: . ~ 
4. Each i-node represents 1 file. 
2. I-numbers start at 1. 
3. Storage begins in block 2. 
‘4. d-nodes are 32 bytes long. 
16 inodes fit in 1 block. 
5. The block number for i-node i is found by: 
block number = (i+31)/16 
The byte number from the start at the block is 
found by: 
byte number = 32 ( (4434) (moa16)) 


Ex. Find where i-node 50 is. 

block number = (50+31)/16 = 5 a 
it begins at byte number 32. ((81)mod16) ) 
= 32 (1) = 32 


block number 


1 ew a ema Eee a a eran ee 


2 i-node 4 | 32 bytes/i-node 
| : : | 
| ° | 
| ° ae 
| i-node 16 | 
3 } 17 i 
| : 
| ° | 
| ° | 
| 32 | 
| -------------- | 
4 | 33 | 
}° ‘ 
| . 
| oe { 
48 
5 ; 49 | 32 bytes 
{ 50 { _ block 5, byte 32 


6. i-nodes below 41 are for special files. 
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\ 


AN I-NODE IN DETAIL 


a! ‘ie 
} flags (see below) i Oo 
{ t 
ant cm ea | ee eran ee tegen ete aN 
oO user id of i number of | 2 
i owner i Links | 
t : { 
Lee ee ee ee ee t 
t size in bytes | 4 
| nee nnn anne n anne enn nnn nnn nnn | 
14st indirect block or contents block] 6 
ae ee en OCD Ose A A A AD ND ED GD Let CID ENA TAT ND GD GEE END CARED ee GHD GND GP GRY MD SE SENN SENS Sele ke er | 
{ 2nd indirect or contents block Is 
nr Fw Bre 45e Oe one Cte EOE ES ERD GED ee ID GED Ae oem ERR 9 EN GRY GAP ED GND GN END uD Gee eaNeE Gust EE Salle es | ’ 
{ . H 
| o | 
| ° | 
i ° | 
' 8th indirect or contents block | 20 
creation | 22 
fen -—-—- --------=----| 
25 time | 24 
modification 26 
29 . | time | 28 
' 
eh SON CR OD aap SED AD nes A UA oth NS GAN NY GND NES ED GE A aE SND TN LORD Ge SUEY Que GEN SED SEED eee 1 
unused | 30 
H 


The flags are as follows: 


100000 inode is allocated 

040000 directory 

020000 file has been modified (always on) 
010000 large file 

000040 set user ID on execution 

000020 executable 

000010 read, owner 

000004 write, owner 

ooo0002 read, non-owner 

000001 write, non-owner 
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FILES 


4) A small file is a file less than 8 blocks long. 2) ,A large 
file is creoter than 8 blocks long. 3) Byte number n of a 
file is addressed as follows: 

block number =.n/512 = b 


a) If the file is small (see flags) 


physical block = bth entry in address 
portion of i-node 


ex. ii = 1500 
1500 


= eee SS 


512 


physical block = 2nd contents block in bytes 
8 and 9 of the inode 


b) If the file is large. (greater than 8 } blocks) 
then 
indirect block # = b/256 


byte offset in , 
indirect block = 2 (b (mod256)) 


word found in this byte is the address of the 
block corresponding to b 

ex. b= 1000 © . 

indirect block number = 1000/256 = 3 

byte offset = 2 (1000 mod256) = 2.232=464 


inode : byte indirect blocks 
block entry enn ee tee enna 
Oe ae Nee ee re ee eee ee 1 P 
| | 6 i 
| aan ne a nee oo ne am { start i. 
2 | {| 8 of 
| pn eee H block |---------- ee ne me a te | 
3 | contains block no. | 10 | ° } 
464 = * 
| of indirect block |] i. . | 
bytes 


OO OND EEE WEL DO OPED ONE OE OP BOE 1b OED mS AR om KD OND ND 
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Entry 
4 | d-number of directory ateert (. )- | 
; i] 
| | 8 character file name |. 
| 
2 i-number of parent directory (+) | 
EE ew GRRE GR ga gree cae EE OO GET PE RD ED oes PN a SR a a DY > TE SE kl A SE a SD QO Se ERE SET AT a t 
t 
| 
| 8 character file name | 
| 
3 i—number of file represented by entry | 
ane ER | RE pin ES aa TED oh Sa OD aie EE EE EP ORES Ce A REET | 
i ! | 

| 8 character file name { 
4 | ° | 
: | ° | 
: ° i 
e H e | 
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DIRECTORIES 


1) Like a file except no user (except superuser) may 
write into a directory. 
2) A file is identified as a directory by a bit in 


the flag word of its i-node. 


page 5) 
3) Directory entries are 10 bytes long. 


(See i-node flag 


Section F Page. 
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Notes: 


tion 
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The fsp table is an incere table wentaial 


about open file 
It is 4 wor eee: 


The same file can be opened more than once, 
> 


more than one entry in the fsp tadi« 


device number 


| Cath Cre eetes EE conn Hees ae aes EI ES A See aE A AAP UE OE OU SE RN OEE UE CT OE STN RNY EN GU Gate NAD ONE See SS ONY Coe SOE A EY MAE GR See aD 


and 


} offset pointer, 1.ee, r/w pointer to file} 


0 Se Smee LEE AN OF OED ORD CEE OES EE ER OED GE ET cents eaS OEE a | eo OA ET ED OE AED ED OES GORE SHER TANS COND LEY GR MRED GE NE Kee NE Eom 


{flag that says file | number of processes 
| has been deleted | that have file open 
t 


| 0 a A ae Oe te NE OE NE NR Caste IE Ma AD AE AA OEP GENS CL SE EN RINNE SURE EL IS SY AO GND ND ID EE PO MOND OE GRE SI GE I OE A Ys 


(00 CONE Set OP OD OD OD ED EE LE OT ON MO CN ED Mal A ERED CR LE SO 
CRO ne ED AE SEP EE SD CA Se Sa ED EE ED ENS IS ETE SED ENE OO RE SE SE? OND ean A RD EO Maly ea WORD Me SE ES SD GN ae EE 


ae me Re an eee 2 Gee Ee Gm tn ame OR A Sas SAE AED Gl CO EEE GED CED CATS SED WAS GES Re END SEED UD BETTY SET SDS GID ED END GARY SE TOY AN NN 


{ 
{ 
| 
| 


heve 


Section F Page 


rey infousa- 


11 


UNIX IMPLEMENTATION 


Te Process Scheduling 


Processes are scheduled to run according to a priority structure 
which is implemented via the rung table and the p.link table. 


rung: 


- These two tables are described below. (diagram on page 9) 


THE RUNQ TABLE 


is a table of length 3, with one entry for each of the three 
ready-to-run queues of processes. The low byte of each 
entry contains the process number of the first process in 
the queue; the high byte contains the process number of the 
last process. The entry is 0 if there are no processes on 
the queue. Each queve is linked by the p.link entry in the 
process table. re = 


process number of last process number of first. 


rung 


’ process on queue process on queue 
highest |-------~---------------<= | ree ene a | 
priority | 7 =A 2 1 
queue | en ewan Bret en emem EEE eT Seer enon ot aD Gee ' OF GG FE SAPD OTD ONE OD Cae OND SD SD ID CNG GO ED GP GEE EEN aD Sr ! 
6 | 3 H 
lowest | Ce Ge Gam Aa OED SSE ED END CED SG OSD GEE HOSES GOD aE eae SD eameD SBS ate { et eal | 
priority | 10 H = 4 ' rung+4 


queue | om ean Ger ae ano ta a a OD Re DE Om OD Ee ON ee ee DEE  Tesatentaatenienteniaanehemheniemenienee ven eae ae ew ew eae 


To demonstrate the interaction of p.link and rung: | 
If the priority of process numbers was arranged as follows: 2, 8, 


7, 3, 


1, 6, 4, 5, 10, pelink would look like. So, the process 2 


is found in the 2nd slot. of the p.link table. In this case pro- 


cess 


Be 


slot numbers - () 


yo) Pe) | pelink : 
anes Ge, Te open CE Os A PRE A EE ES AR gf ERE TR pep doe se NN Ete ARK cee Si eas oe 1 . 

f 5 (4) -| 4 (3) | pelink+2 
| 4 (6) | to <5) | pelink+4 
oe rere oe oe ee ee eee i] SP os am ape ne See eer sam ee mS ey ‘ 

i 7 (8) | 3 (7) pelink+6 


a | | 
etutacetneaomubeareteee| 


| | | p.elink+nproe (16) 
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UNIX IMPLEMENTATION 


Be ‘Terminal Control 


The handling of character oriented devices (tty, lineprinter, 
console tty) is done via several tables and buffers, namely: 

The character count table cc , the first gharacter pointer table 
cf , the last character pointer table c] , the character 

jist clist., the tty control blocks tty , the tty buffers 
buffer and the time out tables toutt and touts. 


The tables cc, cf, cl are structured . 

such that each entry is associated with the input or output 

of a specific tty or other device. The exact structure is shown 

in the diagram for these tables. The clist contains linked 
lists of characters associated with each device. See discussion in 


Section F. 


When an input interrupt occurs from a specific device 

the interrupt routine puts the character received at the end of 
the clist string for inputs from that device. When an output 
interrupt occurs the next character on the clist string for 
outputs to the device is popped off the list and is transmitted. 
If the character being output generates a delay (1£, cr, ht, 

vt) the appropriate entry in the toutt table is set no output will 
' be generated while the toutt entry is non-zero. Each clock 
generated input causes every non-zero toutt entry to be 
decremented. When a toutt entry becomes zero, the associated routine 
named in the touts table is called. fe 


The tty buffers are used for editing the input clist strings 

for the tty’s. When a sysread on a tty is done the clist input 
string for the device is scanned and put in buffer 28 #, @ cr 
or deletes are found they are stripped from the input and 
appropriate action is taken. - 
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TTY BLOCK AND BUFFER 
I. TTY BLOCK 


| Se ceee an [oe ee ae cess 


| column tty is in | tty 


Dk ete A ae eee OR FOF aE 8 AD A ORE ET OED Cate aN ND eae TR A GEER WY 


ttyt+2 


oan coe ee esta tat cee Eas CUS ED SIE Gee 82a te 8m ee ee oct GP OP eee mee { 
{ 


1 
t . 
| sleep queue ,wakeup | char left over 
| queue, ce offset H after lf 
|-------- 1 nanan nanan nn | een ne 
| in | flags tty+4 
| cr, tab, sp, raw, echo 


i 
' 
\ 
0 RE 8 ew Cate nD TER Re AE OED OR SUD GD OR ene Ae GE Spe ena 8k Beh nD w= H 
i 
| 
1 


pointer to tty buffer tty+t6 
| e Cath oe Ee ea a> ae ae ce OS OE AD a ED STO OP EE GED RAS SS SA DE OEE A EE NA LD ND GETS ES GENE ET A RNID LD ENN LENE GAD AND AOD AD SOY 


tty+4: bit 7 - parity 37 

- parity non 37 

- raw 

echo 

- caps to lawy cas? 
- tab to space 

- no delay 


Om-NWAUOD 
1 


II. TTY BUFFER 


| Oe OD eee eee gn 9 A ERE ED UD Be ON UD a EE OE OR ED GND DE SE ge SUP END A GAD ED MEN wens GUE EU SUN CaN CoP ee ents TEND sie coh call AMD Lae ED om | 


] “ 
‘ é 
| | number of processes | buffer 
| { using this tty 

i] 


| ae i ot ee ee ae H 2 Se ead ERD SUT FEM al SES GE COTE EEE Cate TED Unto Oe winters SED SNe OD 


|. char. count buffert2 
| character pointer buffert4 
| ini cs gc Sl ss ae tae ae OO PE UND PON aR ane Om ! eee ee ee eee ee ee A ca BNE Bi ll ee ED OE A OO OO 


| | _interrupt character bufferté 


H Ee OR BED Bee et AT ES ED SU ED GEE sen 0 tO MO eon Ca ET SN DS RO ID i (be Leet a SO ED SONY OS OE ET ASD SED OS FONE AOD ES NE MER EE ts SE SLA OE 


bufferts 


CD A ELT cee a OS OR OG A ND aD Of Ca SE OEE ONE SPE TEND AED ET OU TOS MEE AED SOE OT ED OSD eee ee OO SRD SON ME 


buffert+1 30 


{ 
| CRE Os DP A EE PE EN ED ERR A ED OD CO a ae ac | ae ee ee RO eae ts ee tee a ens as ANE eee, oe a 2 a 
| char 2 | char 1 buffert10 
a 9 0 a We CO DF on © EE OS ED ED ee Ges VEE Oh ee OO ee i] is AC CO GE GAN EE RE PE RON an OI gS AR Rare ae eRe Gage ay tool si NE BPE cacti % 
| char 4 i. char 3 | 
oD Emam ape En we OEE OD ie AD A AAD et NE FP IS Soll ANE SE oD OD | evi eer yet eats at gan qu ee net oe mai A) NO AD AP ot EE OR 0 a wee 
1 data 
ree ne ee oO ee Ce et CE EP AGE AED SE ED TE OO Ae CD ee a a | Se EE GE SEND St OUND MD 2H OND a TD ED sale OND GED SOUP ee ee ed area 
@ 
e 
e 
H 
{ 
i 
i 
i 


CN OE GD A A A AN VED AD OE TAD RD BA LD SOE ND OD SF I AD A eS SN SE AO TTA TE ae OU SE CEE SON AA SR OS IT A SD CS SD OED MND OD 


buffer+138. | 


OAD CREED CRED en SAD SESS ereED HORE ema MOOD OD 
ee en OD red eae AT Se Ce ET OND APES SO SES nS SENS PAD AO ED SEED Sap Gy SOP ENS GAO SS SE ES SP eS SD RED ee OO NY UD SD 
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TOUTT, TOUTS TABLES tin ct eh a 
atic Rare earner cect au [Pete oemtore 2 We hey 22 “all 
fc, eeemeey leehete ey eney| tee. Samynsy 
| teye ip) | outer — tade Yate 
[ tty2 | ttyt entry | touttra 
ree toutt+6 
ergs TY ees TT toute 
__ Te a toutt+10 
tO — cen a touttt12 
ree | toutt+14 
[console tty eubroutinel FEZ posne | touts (tout+16) 
let pete dt 

; hip) | 


4 ai Og Be. 


PAE ee CAS ew CRE EN AS OE En SED AE ORE NE SND SANIT ERY TAS SEND SEEN eT SS ES i AD AD GDP Gach 


| 
| : 
| 


touts +30 
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cc, CF, CL & CLIST TAELES 


console in’ count 


ean wey Aste eee ae Galen OG RAED ee ME TE GE: OR Re ER LA Me OED WN CR GORY re Qe MAY 


t 
t 
t 
{ 
H 
| fae : e | ppt ect2 
| nan n nnn nanan nnn ma |annnne= wenn nnn nnn nnn 
| lp H cect+4 
{ 
ee ee eT ee en pe ee Ad a ete ee ee ger ge ge tee eee ey as 
| ttyO | ttyo cct6 | 
! 
ais Sane ea ans a ee ge ee ee ye eo Pe ee ge) og 
| tty tty1 ects 
| tty2 ‘ | tty2_ ae ccoHs 
ee gg gg ee ae ee ar eee Pg ge ee ee | 
tty3 | tty3 ccm 
Fears gece ee citar na i amen AR Ea AR BIR SNE ie I See gE MR aR INE. OAR CoD ame me OL CAN My EY lead t NE Re ele NE A EA EMER REY pat I SCY NN OY OY ET le teed 
e { ; ‘ sd | 
id é t e | 
mann nnn nnn nnn nnn nnn | ern ng gn 
tty7 tty7 cco+wD 


| 

| 

| 

| ete ee eae eee eee ee eee 
| 

| 

i 

i 

| 

| 


eo ees 0 NS SETA eae HAS NS EE OE NS OU AE ON EE SERS OE COD EE SUPER SE EY HORE OO SE AD OE Sy ED NEE EE SE OR A OR OD eA ER ST TER eR ma 


he GEG SO Ie aS gee ee GE ROT ee GRE Moe eam aps ee ee ce SN Se en eee | ee RS eee Gen Ge CH eats WHEE ER ene tere EA OED AN ED EE OP OE A EE CEERI ERC CED A ee aD 
. H ° 
° j . | ‘ e ? 
° | “e@ 
eng TERE era cams aI aha ee Se RE POS ETE AO ae ERA OME ARN mew qe Yee aan ee ANE ines oe Jai spe Sie Bate i ee OR oe eS ee OE oe Ge Cle Se ee A ee ee ee ee ge ee ee eee 2 oe Oy a ee 
| ecte 
| Re eee oe on aa ee ae ee ee ee ere ee i ae am eS a Se SS ee an See Se ee Om a ae ee ae ee ee ee eer eC: 
console int’tst char offset lfree list 1st char offset ef: 
| --- ta een ewwe | eee ---- --------- | ect 
{ ppt inlYc ar offset [console outf*tst char offset cf+2 
. { ppt outtst char offset | cf+4 
a a emma a aaa a | 
{| ttyO inlfirst char offset | lp cf+6 
{ 
OF 28 OF ae OE oe EE a Oe ee OOS RO gees dart. TC Seep ARIE ME 1 eee en cot OO eas OOD ee te OY EAE ED SD ETD OO SESE ES eR YD ED Fy 


| tty1 ot) | ttyo td ce 


A CEES ERD OH AD EY SEED CARD CSR inte CRE GARLAND aE MORE OG ae Hi EO ome | ae ED Gee A A OD ln AP SD EP OS GD OS PS CD D-DD SY WO SR Ga AO ET SR ED 


{ 

t 

H 

e - * : { e | 

* | * | 
e | e 1 

| 


a eo a ee ta 
-~ 


f -tty7 "  " 
Se | 
e i 3 . | 
e | e / , 
cnieye? freelist last char offset cf+p 
‘ OS EY CE. GUS UES as SU ON ON UNE AE NY EERE GE AON OED GENS SN GD MED SED Gn HEED Mate OEP ORY memr-eaD MeN SS ee aD came eben one Se Ae Sty Ge ake eesti a 1 
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CPL oe eta “eR a MR tm th Hon we ma ee: | te Oe se Sold einer a A fo 


consold our? ast char of } ee 4 ast char off cl+1 


Sr ae ee mm GN AW eS atm NE wn ane A A ee we ROR Sones ene ee ne ee ee Oe Ce reg te ge 


a t id ae oe te | ii Lid wit < cl +3 


ape c1lt5 


ttyO elt? 


i 
t 
! 
i 
\ 
' 
t 
i 
{ 
i 
! 
} 
) 
1 
{ 
\ 
‘ 
t 
t 
{ 
{ 
{ 
i 
I 
} 
| 
t 


A 0 PE ST AO ED RO TOR CD SE ED CEN SED ee OD SE SO 


we we i] 
tty7 ? ii i tty7 el+21 
cl+23 
e A e 
_¢@ ; e 
2 Hl go? ot 
rR re, FI LT ETT OE ae gett Oe QED Ne ee OOF ome OY eee ORD | OT ae. SE NOD TE EE A OR BD OD re GD ONS A RD AAD We SD DE EDD DUD ED OND VS OD 


ah gel a al ht AOSD NE OE OE AD CD OD OD ONS GN TNC OND Slt SA ERD CSD H OP 0 ae eee AED GATE OR ED AE FEED OES an A ED GD GED GET BATS ED Ad AD OS A OND AE lS 


pointer to next char (0) | character (0) 


aes eee a cea GI ED UID seta GORD ERD SED AAD NE maAD FEE TN OTE OE UES ENE Oa gE Talee QAO Se SED My ane | SEED esa SU SONY SN nate ET OT EOE GOTTEN SUN REN SHED at GUND RD LOS A MENG SY SS AIG GEES aD Ss Ga I SD 


clist (cl+} 


CO ae oe me sa a Set 8 15 A Nae A Ree NY DB WA NO KD Se ! oe OF SE FR See ES Ct ER Le eS Sah A TO A BA ta Sor 


' 
{ 
| 
( 
] 
| 
] 
1 
| 
| 
i] 
{ 
{ 
{ ; 1 o14+29 
H 
| 
{ 
iy 
| 
{ 
| 
t 
H 


pointer to next char (204) | character (204) 


then tan ate SO Sy OO A ae a OE ONT OO NS OY A EE SI ND SON ED RY SED SED acy Be Ne a} ES END SOD ED ND SY EST NE DNS Dee eal IY RO GD eR SEN RS Mes SSN a A Se A 


clist+508 


ee ee OS EE ED LE ES OES LOTS EY ES OS SE A SE OD OE OND OD NS Sw et ae SUR SO OD SR Nee A Ne caer muh A AO em 
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active — 
is a werd whose bits encode the activity states of the vari- 
ous block-structured Aevice controllers. If the FK disk bit 
is on, thet device is running and should not ke melested. 
The devices for the bits are: 


bit ' device 
‘@) arum 
4 | Aiesk 
2 dectape 
buffer - 
etart of the buffers usea fer block-structure? device I/o 
(there are “"nbuf” of ther) and tyoewriter input (there are 


ntty of ther). 


From buffer to buffer + 1119., are the © tty buffers. Fror 
buffer + 1120. te buffer + 1259. if the consele tty buffer. 
Fach of these buffers is 70. words lone. From buffer + 1260. 
to buffer + 4381. are the disk buffers. Thev are 256. words 
each plus 4 words which represent an I/C queue entry. Thus 
each block is 260. words. Pointers to these 260. wor? 
buffers are contained in bufp. bufo contains pointers to the 
I/O queue entrys of each buffer. For more information, see 
E.O, Dp. 2. 


bufp - 
contains pointers to the bleck-structured device buffers. It 
is 9 words long. The first 6 entries point to the T/C queue 
entries of the 6 buffere. The last 3 words contain: 
sbo - address of I/O aqueve entry for the = suner 
block of the PF disk. 


sbi - address of I/0 cueue entry for the suver 
block of the dismountable device. 


swo -— address cof T/O queue entry for the core image 
being swapped in or out. 


ec - 
is a 30. byte table. Fach entry conteins a ccunt of the 
number of characters in the associated queue for that entrv. 
The characters have either been received from a character 
oriented Gevice, or are waiting to be output. 


cdev - 
The current device number. It is set uo during the scan of a 
file name, and is an implicit argurent te the routines which 
ao I/O by Gevice bleck nurber. cdev= O-drur, 1-disk, 2... 
dec tape. This parameter is 1 word. 

cif - 
is a 31. byte table, Fach entry points te the first charac- 
ter in an associated character queve, The first entry refers 
to the free list of character blocks. The pointers are 
offsets, Givided by 2, in the clist table. 
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cl - 
is a 31. byte tahle Fach entry points to the last character 
in its associated cheracter, {JUEUR. The nointers are offsets, 
divided by 2, in the "clist” table. 


clist - 
is a 510. byte table containing linked lists of input or cut- 
out characters. Each entrv is a word; the low hyte contains 
the character; the hich byte contains a vointer to athe next 
byte in the list. The pointer is a word offset in “elict’. 


clockp - 
points to one of the cleck cells in the suver block (1 word). 


core —- 
address of the becinnine of user core. 


dae - 
disk address extension error reg. for RF-11 disk. (See Sec- 
tion C, pq 35) 


des - 
Aisk contrel and status register. (See Section C, ng 34) 


Ceverr - 
a seven word table containing the error status of devices. 
The index into this table ie the Cevice no. ‘cdev’. 


word aevice codes 
1 drum — Q= no error, i= error 
2 Aaiek ‘ 
3 dectape units . 
4 we Lid 
- a w 
7 2 sd 


ecore = 
address of the enc of users core. 


fsb - 
this table contains & bytes for each currently open file, It 
must be kent on a per-svetem basis since the same instance of 
an open file can be referred to by more than 1,process. This 
table has 1 entry for each “open or “creat” call, Each 
entry contains information about an open file. The fso table 
is indexed by the u.fo list. (See Section F, ng @& fer de- 
tails.) The table is 400 bytes lona. ’ 

idata - 
This 448. byte area contains assembled root, device, binary, 
etcetra, user and temporary directories and the cold hoot 
initialization prograr Airectory. (See Section F, vade 7 for 
a descrintion of directory structure, ) Preceeding each of 
these assembled directories establishing i-nojes for the 
Qirectories,. Namely: 
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A = i-node nurber 
R B = i-nod’e flags (See Section F, >. 5) 
D Cc C = nurber pf links 
FE D = user id of owner . 
E = directory size in bytes 


Following the 4 word area is the directory asseclated with 
it. These @irectories are used in initializing the system 
auring cold boot. 


idev - 
the device number of the current i-node (1 word). See it. 


ii - 
the i-number of the i-node currently in the ‘inode’ area of 
core (14 word). 


imoe - 
a flag set when the current i-node (ii) is modifie?. 
Whenever the current inote is chanced, or whenever an exit to 
a user program takes place, this flag causes the i-node to be 
written out. This flag is 1 byte. 


inote = 
lays out the structure of an i-node. Each i-node (32 hytes) 
specifies a file. While a oparticular file fe unter con- 
sideration, a copy of its i-node resides here. The current 
i-node number is kept in Li and its device in idev. 
Labels beginning i. refer to locations in this area. — (See 
Section F, oy. 5.) 


i.ctirm - 
creation time of the file. (2 words) 


start location of an 8 word ‘address’ pertion of the i-no‘e. 
Fach word contains a physical block nurber, from which a phy- 
sical block address can be calculated. The index into this & 
word section of the inode can he considered a logical block 
number. if the file associated with the i-node is srall (< © 
blocks). If the file is large (> @ blocks), the phvsical 
block number indicates an indirect block which contains 256. 
words, each of which ccntains a physical block no. for a 
block asscciated with this file. % zero phvsicel block no. 
in either the address words of the i-no@e or in an indirect 
block indicates that the corresponding bleck has never been 
allocated. 
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i.flcos - 
flacs (1 word) for the file are coved as follows: 


Bit o set indicates - write, non-cvrer 

; 1 z —- read, non-owner 

eve 2 - write, owner 
3 _ - read, owner 

4 as - executable 

a 5 ‘i - set user ID on execution 

* 6 we ~ These bits are not assigned 
7 = 

"38 : - : 

ee 2 ew ~ we 

we 1 0 we aad Lid 

we 1 1 oe aa 
12 - large file 

e. 13 4 - file has been modified (alwave on) 

, 44 > - directory 
15 - i-node is allocated 

i.emrtim - 


modification time of the file (2 words). 


ienlks - 
number of links (directories) this file appears in. (tbvte) 


i.esize - 
size of file in bytes. (1 word) 


ieuid - 
id of the file cwner (1 byte) 


lks - 
chock status register. (fee Section C, pg 36) 


mmod — 
corresponding byte flag of imod above for the currently 
mounted desmountable file syster. 


mnitd — 
is the internal device number corresponding to the device on 
which a removable file system is mounted. It is used with 
miti. (41 word) 


mnti - 
records the i-nurber cf the (inique) cross cevice file. That 
is, whenever this i-number is referred to on the FF disk, it 
will be translatea@ inte the roct directory on the mounted 
device. (1 word) 


mount — 
is the in core imace of the super block for the disrountable 
file syeter currently mounted. It contains the i-node map 
and free mav for the device. 
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is the source of unique identifiers (nares) for orecerses. 
It is increrented as each process is created. (1 wor?) 


nbut - 
number of block-structured I/O buffers. Presently its 6 (fer 
cola heot 2). 


niiles - 
allowable nurber of cpen files in system. Presently 5C. 


neroc — 
number of processes, Presently 15. 


nttyv —- 
number of tty’s. Presently 9 


eric - 


cartab —- 
128. bvte table. 


ppb - 
papertase punch buffer recister. (See Section CG, p. 38) 


ops - 
paper tape munch status register (fee Section C, p. 37). 


potiflg.~ 
indicates the etatus of the paper tape file. (1 byte) 
- file not open 
- file just opened 
- file is normal 
- file not closed, error situation 


NdnOo 


prb - 
paper tape reader buffer register. (See Section G, p. 37). 


proc - 
is a table with an entry for each possible process. The 
number of processes is given, by “nprec’. Its length limits 
the number of processes which can be created, since it is 
always in ccore., Subtables in the process table have names 
beginning with p.. 


xe) 
Nn 
87] 


paper tape reader status register. (fee Section CG, pb. 37). 


pS - 
precessor status register. (See Section CG, po. ) 


Dpebreak = 
a 16 word table. Each word is assceciated with a unique vro- 
cess and contains the first core address not used by the pro- 
cesSe : 
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lereers 


peli 


pepl 


Depn 


UNI¥Y IMPLEMENTATION 


KA = 
is a table of disk addresses for the swan area of the 16 
procerses. p.dska is 16 words long Fach word contains =a 


block nurber for each process. 


nk - 

is a 16 byte table indeved by process number. Given that oa 
process is on the run queue, its p.link byte is GC (in which 
case the process has no successors) or it contains the pre- 
cess number of the next process to be run after the process 
thet owns that slot. If process nurber 2 was running next on 
the queue and orecess number & was next, the 2nd byte ef the 
pelink table would contain an f. This is how the next nro- 
cesre in line is linked to the cne ahead of it. 


Aa. 
is a 16 word table that contains the unique identifier (or 
nare) of a process. It is indexed bv ? X (the process 


number). The name of the ovoroecess is actually ai unique 
number. 


id - 

is the unique identifier (name) of the parent of the varticu- 
lar process. The table is 16 words leng and is indexet by 2 
X (the childs rrocess number). This is where a child 
searckes for its oarent. Process number 2 woul’ look in the 
2nd word of the p.prid table for its vcarent. 


oestat —_ 


rcebr 


resr 


. 


rkap 


rvcs 


Issu 


s 16 bytes long. Fach byte represents the status of a Dro- 
cess. Fach byte is indexed by the process nurber. The 
status’s are as follows: 

O — indicates the process is unused or free. 

4 - indicates the precess is active ea-ieee, 

2 - indicates the process is waitine for a process to die. 

3 -— indicates a zombie (the orocess has died but it has not 
been waited for.) 


receiver buffer register for the DC-11. 


receiver status register for the DC-11. (See Section G, ob. 
2€) 


address of the drum buffer I/O queue entry. It is passed as 
an argurent te trapt . 


address of the disk buffer I/O queue entry. It is used? as an 
aradurent to trapt . 


control status register of the disk. (See Section C, p. 30) 
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rkda - 
@isk address recicter. (See Section C, >. 29) 


ee) 
reas 


disk JIrive status register. (See Section G, p. 28) 


ia the i-enumber of the root directory. It is set to 41. by 
the initialization code and is never chanced. 


rund - 

is a table of lencth 3, with one entry for each cf the three 
ready-to-run aqueuss of processes. The low byte of each entry 
contains the process number of the first vrocess in the 
queue; the high byte contains the crocess number cf the last 
precess, The entry is O if there are no vrocesses on the 
AUCUS. Each queue is linked by the pelink entrv in the oro- 
cees table (see above). 


ebo - 
is the I/O queue entry for the super block for the  sermanent 
Aevice (FF disk). It is 4 words lona. 


4 


eb. - 
, ais the I/C queue entry for the suser block for the Aisrount- 
able device. It is 4 words lonc. 


smod - 
is a byte flag that is set whenever the super bleck is medi- 
fied. During an exit to a user procram, the supner-block is 


written out if this flag is set. 


swp - : 
is the I/O queue entry for the core imace being swapped. Tt 
is 4 words lono. 


sysflag - 
tells whether execution is going on inside the system or not. 
It is 0 if a system routine is executing ance if a user nro- 
cram is running. This is a byte flag. 


estack - 
is a temporary steck used to store the stack during swans. 


systm —- 

is the in-core image of the suver bleck for the RF fixed head 
disk. It is updated onte the RF wherever it is changed. 
This area consists cf 130. bytes cf free-ctorage map 
(described in Section F, ». ), 64. bytes of I-nede mao 
(described in fection F, p. ), and 22. byvtes of time ac- 
counting and error count information. Labels in this area 
start with ‘s.’ 


s.charqt - 
is the time charged to users. 
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s the Crum error count. 


et - 
he time the eystem is idling. 


10} 
e 
i: 
fen 
tre 


s.syst - : 
is the overhead time durince which the processor is executing 
in the operating svstemr code. 


setime - 
is the total time since the system was last celd booted. 


sewait - 


is the disk I/O wait time. 
is the vointer to the dec tape I/O queue entry (1 word). 


is the bus ad@reses register of the DEC TAPF. (See Section ¢, 
De Bea) 


is the transritter buffer register of the DC-11. 
is the comrand register for the DEC TAPF. (See Section C, >. 


tect - 
is the gata register for the PEC TAPE. (fee Section CG, od. 
33) 


tcerre - 
(1 word) 


tesr - 
is the transritter status register of the DC-11. (See Sec- 
bion:G, 7s 27) 


test - 
is the control ané status recister of the DEC TAPE. (See 
Section C, 0. 31) 


tcstate —- 
is the state of the PEC TAPF, e.g., idling, searching doing 
T/C. (1 word) 


tewe = 
is the word count register of the DEC TAPF, (See Section C, 
De 32) 

touts - 
is a 16. word table. Fach word, if non-zero, is the entry 
mnoint of a subroutine. The table is use@ to irolement 
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Keach es zero 


interval timinc in conjunction h the ‘toutt’ table 
described below. 


toutt - 
is a 16. vyte table. ae ete is a count. At each clock 
interrupt each non-zero,gthe corresnonding touts subroutine 
is called. All entries in these tables are fixed. 


tkk - 
is the tty reader buffer register. See Section ©, pe. 3%. 


is the tty reader status register. See Section C, Pp. 3%. 


is the ttv punch buffer register. See Section GC, p. 39. 


tos - 
is the tty munch status register. See Section GC, De 39. 


tty - 
contains 8 bytes for each NC-11 communications interface con- 
ficured,. Control and status information is keot therein. 
These are referred to as tty blocks. There are nttv (9) of 
them. The last one is for the consold tty. For their con- 
tents see F, vace 11. 


ttyoch - 
is used @uring output to the console typewriter. (1 bkvte) 


user - 
is the start of each users data base. It resides just below 
the users core area and is swapped with the user. All loca- 
tions in this section begin with u. 


u.e.base - 
helds the users buffer address in core during read and 
write calls. Also points to u.dirbuf in rxdir. 


uebreak ~ : 
holds the process program break point as set by sysexcc or by 
a sysbreak. It is the location at the enc of the users oro- 
gram used in the swap routines. (1 word) 


uebsys - 
is set while a procees is ahout to be terminated for some 
error. & core image is produced. (1 byte) 


u.cdev = 


holds the device number of the users current directory. (4 
word ) 
cdev device 
ce) drum 
1 disk 
other Aectape 
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uecdir - 
is the ijnurker of the processes current directory. (4 word) 


ueconnt = 
is the nurhber of bytes to be transferred Auring read or write 
operations. This variable is 1 word. 


u,dirouf — re 
vusvualle holds the denumbsr cf an i-noce in mano? and 


“mkdir. (The i-snumber of a new i-note) v.dirbuf + 2e.. 
u.cirbuf + gq hold the name of the file in the directory en- 
try. 


uedito - 
is either an offset within a directory for a file mentionel 
by the, user or a pointer to an empty directory slot during a 
Creat. It also points to a directory entry in nameli . (1 
word) 


uefofo - 
is a word that contains a pointer to the 3rd word of an _ fsp 
table entry. This (3rd) word contains an offset (in bytes) 
into the file asscciated with the feo table entry, and is 
used during read/write operations. In initializing encectal 
files, u.fofp points te u.off. For bread and bwrite, wu.tofo 
containe a block nurber. 


uefp - 

is a list of. users open files. An entry is either ©, for a 
non open file, or is an index into the systems feo table 
(table of open files). Fach byte in the list contains an 
entry. The list is 10 bytes long, because 10 is the maxirur 
number of files a user can cpen at once. The index into this 
uefp list is called a file descriptor . It has a value from 
0 to 9 


ueilgins - 
determines handling of illegal instructions. If u.eilgins is 
O — the normal instructicn trap handling is done the process 
is terminated and a core image is preduced. 


If ueilgins is 


a location - control is passed to that location when the trap 
eccurs. This feature is used to implement the floating voint 
instructions. (1 byte) 


ueintr — : 
determines the handling of interrupts. If ueintr is zero - 
interrupts (ASCII delete) are ignored. 
is one - interrupts cause there normal result, ie, force an 
exit. : 
is a location - control is passed to that location when an 
interrupt eceurs. (1 word) 


uenamep - 
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is a pointer te a file name menticned by a urer to the eyvetom 
jurina svstem calls. (4 word) 


wenread = 
accumulates the number cf bytes transmitted Auring read or 
write calls. (1 word) It is passed back in rf on return. 


u.cff - 
is either a pointer { to a file offset mentioned? by aA user aur- 
ing seek an? toad: calls or a pointer to #n emotyv cirecteo- 
ry slet in mrkdir’ er # pointer to a directory entry as in 
eysunclink . (1 wer?) 


uepri - 
helis the wrocess orioritv expressed ae = pcinter to ene of 
the three run aueuese (in one word). If another preeees with 
hicher oriority becores ready to run while this orocece is 
running, the remainiig timc cuantum is set tc zero. 


uecuit - 
determines the henclince of quits. If ueqduit i. 
O - quit signals are icnered (ASCII Ff). 
1 - cuits are re-enabled anc czuse execution to cesrse anda 
cors imaaa to be produced. 
@ lecation - control is transferret te that lccation when a 
quit signal is received (1 byte). 


uerOd - 
moints to the location where the users rf was stored on entrv 
into the svstem (and where it will be restored on return). 
It is used to pick uno anc pass arcuments. Most often it 
passes file descrivtors. (1 werd) 


ueruic - 
holds the real user id number. It is not chang e4 ey qune 
set-user i4 bit being cn in an inode during a sysexsc (1 


is uced to save the value of the users so resister »fter ell 
the other recqisters have been saved. It is used to restore 
the sp when returning to a user so the sevster need not takes 
oe to vod everything off the stack before returning (1 
WOrd )e 


uettyo —- 
is a pointer te the huffer off the tty that is in control of 
the vorocess. The control tty (typewriter) is the enlyv one 


which may quit or interrupt a process. 

ueuid - 
nol’s the user id number used to 4eterrine protecticn (14 
byte). 


ueuno — 
is the vrocess number. In sysfork it is the narent orecess 
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ROP ues sy. SIA. S7eckit. PELs the Srocees' Murver OF ene. “wine 
process. In Swen it- As the number af che Sroceer heine 
swapced out. 

u.eusp —- 
is the contents of the sm at the romrent the user is ewanned 
out. It must be. saved so that the anorooriate return can 
teke place efter the user is ewapned hack in. (1 wer?) 


aioe - 


le the users tire quantum It is set te 20. when a new user 
is ewapned in. At every cleck tick it is decremented. When 
it reaches zero the user is swanped out (1 byte). 


wlist - 

is a 40. »yte table of “wait channele”. Eech rte is cen- 
sigered @ channel. Rach entry in this tahle is asecciated 
with = maerticular event. When a precess wishes to wait fer 
one of these events, it calls @ routine (sleen) which enters 
the process number in the anvrepriate channel ‘° this table. 
Vhen the event occurs, ancther rovtine (wekeup) wekes un the 
nrocese. 
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~ vo; 2/allecate tty buffers 


FUNCTION — 


Fach [DC-11 interface is aesigned 140. hyvtes of buffer enace, 
the firet 140.-byte block beginning at leacation "puffer. 
Aleo for each interface a 4 vord block of control an? chatus 
type infermation is maintained, These 4-wore blocks bhecin 
at locaticn tty , the fourth word in each hleck is @ 
dointer to the beginning of the 14C.-—byvte buffer assicne? to 
thet device. This section of cote loage these neintere inte 
the mroper places in the tty blocks. The results are shown 
in the Siacrams on H.O, nage 3. 


CALLING SEQUENCE — 


ARCUMENTE —- 


INPUTS — 


ntty (number of PC-11 interfaces) 


QUTPUTS - 


(see diagrars 1.0 page 3), rC, ri 


Issue D Date 2/17/72 ID IMO.1=1 Section H.C Pace 1 


UNIX IMPLEMPNTATION 


ID -— uo; 3/allecate disk buff«rs 


FUNCTION - 

Bleck I/O devices (drum, Ais fCy dectepe) use blocks of size 
256. words. Thus for each of “nbuf" block I/O buffers 256. 
words must be assigned. In addition to the 256. words for 
Gata each block has four additional words which represent an 
I/O queue entry. Thus ea oe DEOek contains 260 words. These 
blecks begin at locaticn buffer + 4260... This ceaorent of 
code loads pointers to these 260 word blocks in consecutive 
locations starting at “pufp’ e Thue “pufp’ contains vointers 
to I/O queve entries since the first four words in each 
bleck represent the I/O queue entry for the block. (Three 
additional |T/O, queve entries lecate’ at locations sbO , 

so1 , anc “swp' algo exist an? pointers to them are alsc 
leacted into  bufp. Finally, the lest 2 words of an I/O 


queno entry contain a werd ccunt ant a bus address, these 
leeations are initialized. The results ae shown in the 


Siagrars on H.C, nage 3. 
CALLING SECUEKCE — 
AP OGUIEIAT GS = 


TUPUTE 
rO0 (points to first blec I/c buffer) 


OLTPU 
agrams E.G sace 3) ri (internal counter, r2 (internal 
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Ip - vo; 3/free all character blocks 


this scgment of code initializes the cf, cl an’ clist “locks 
in core to the following states: 


(cf+31.) cl 1 


clist (cf + 34.)’ 


2536 clist + 506. 


CALLING SECUENCE —- 
ARGUMERTS <= 

IMPUTS - 

CUTPUTS - 

CALLED BY - 


CALLS ~ PUT 
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IPD = uc; 2/cet up drum swan addresses 


FU 


Sad a Lae 
in 


Cl = 
The drum is divided into 1024. blecks of 286. wor3s. The 
hichest 64. blecks are set aside for etering UNIX itself. 
Processes ewapred to and from core ere store? on the arum, 
The area in ccre Ecginning at location ».dska centains a 
bleck number whie¢h is the number of the first hlock on the 


drum where the process is swapped tc. There are 17 blocks 
on the Crum assigned as swapping area for each process. 


This segment of code initializes the p.dska area in core bv 
susplying the block numbers for each of nproc proecerses. 
the results apnear as follows: 


943. 
926. 


950.—-noroc*17,. 


CALLING SEQUENCE = 
ARCUMERTS - 


INPUTS - 


CUTPUTS — 
p,dska - [p.dska + 2*nproc 


Pate 3/17/72 


Ip IMO.1-1 


p.dska 


p.edska + 2*nproc -2 
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Int + uo; 4/free rest of Crum 


FUNCTION — 

This vortion of cede is executed durine ‘col?’ hoot. (See 
UNIX Programmers Manual - Foot Procedures VII.) It initial- 
izes the core imace of the super block for the fixed head 
disk. System (which represents the number cf bytes in the 
free storage map) is set te 128. Svetem + 130. (which 
represents the number of bytes in the i-node ran) is set to 
BAe. See Section F, pp. 1,2)-6 Rlocks 34.,...687. on the 
drum are freed (the corresponding bits in the free storage 
map are set). These blocks are for user files. 


CALLINC CECUENCE — 

APCUMENTS - 

INPUTS - 
ri contains the number of the hichest bicck to be freed. 
(See inpvts for ‘free’; H.5, pe 2) 

OULPUTS - 


systm, systm + 6, systir + 8,00, svstm + 985, syvstm + 130. 
(See outputs for ’free’s H.5 ». 2) 
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ID ~ uo; 4/zero i-list 


FUNCTION — 

This portion of code is executed during ‘cold’ boot. (See 
UNIX Frogrammers Manual -— Poot Procedures VII). It zeros 
blocks 1,++6+¢, 33. on the drum. Block 1 is the 2nd block of 
the superblock for the drum. (Block O is the 4st block of 
the superblock. ‘However, since the in core imace of the 
superblock (see UNIX Implerentation Manual - p. 3) is updat-— 
ed onto the RFO3 whenever it is changed (can be changed by a 
call to ‘free’, updated by a call to “sysret’ it does not 
have to be zeroed.) Blocks 2,..+, 33. are used for i-nodes 1 
thru 512 (see Section F pp. 1,3,4,5+) 


CALLING SEQUENCE - 

ARGUMENTS ~ 

"INPUTS - 
ri contains the number of the highest block to be zeroed + 
4. (See inputs for ’clear’ H.3, p. 1.) 

OUTPUTS — 


Blocks 2,+.++, 33. on disk are zeroed. (See outputs for 
*clear’ H.3, De 1%) 
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ID U13;3 badsys 


FUNCTE CN = 

"badsys” is called either because the user executed an ille- 
gal trap. type instruction cr because a t-bit trap occured, 
(The t-bit is used to implement the auit functicn.) badgevs 
firet turns on the red system flag (u. hbsys) ane the calls 
namei” with u. Dense pointing toa "core - The core imzce 
file is then onened for writing via "iopen s, WE the file is 
net found, and i-nede whose mode is 17 is made by maknosd 
and the i-number for that node is out in r1. Parameters to 
write out core area then set um ance the core imace is writ- 
ten cut in the usere directery. Then the users area of ccre 
is written cut and the file closed. svsevit is entered tc 
terminate the vrocess, 


CALLING SECUENCE —- 
bhis badsys 


ARCUMENTS = 


INPUTS - 
ri - i-number of core image files i-node u.dirbuf centains 
i-number of new i-node mode by mwaknod . 


OUTPUTS - 
uebsys - turn on. Its the users bad eyster flag. 
uebase - holds address of “core’ » and user durine upite i-calls. 
uecount —~ users byte count to write out, 
uefofp — contains file offset. 
ueoff —- set to zerc. 
ri —- has i-number of core image file. 
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ID Ui3;7 error 2 


FUNCTION —- See ’error’ routine 


CALLING SECUENCE - 7 
ARGUMENTS - . . 
INPUTS - " 


OUTPUTS - 
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Ib U13;5 errer 1 


FUNCTION - See ‘error’ 
BRCUMENTS - " 
CALLING SEecuEror ec" 
TMEUTS -& 7 


CUTPUTS + 


-Iesue P Date 3/17/72 
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ID U13;2 error 


FUNCTION = 
we 


wv 
error ‘merely sets the error bit of the vrocessor status 
(e-bit) anc then falls richt into the evsret, svsrele return 


sequence. 


CALLISC SECUENCE - 
conditional branch to errer. 


AFCUMENTS —- 


Issue D Date 3/47/72 FD -IMOst—1. 


re 
of: —_— 
erecesser status - c-bit is set (means error). 


Section F.1 


Page 4 


ID U1;9 cttyv 


FUNCT z Cu = « w e er ” . 
gtty is called hy svsgtty and sysestty . It takes the 
first argument of the above calls and puts it in r2. This 
argurent is either the source or Gestinetion cf inform=ticn 
about the tty in question. The file descrintor,is put in r' 
and the i-number cf the file is obtainea via cetft . The 
nurber of the tty is gotten by (the i-nurber-14). If no tty 
with this number exists an error occurs. & x (i-number-14) 

is the tty bleck offset. This is outputed in ri. 


CALLING EECURNCE - 
jer rO0, gtty 


ARCUMENTS - 
INPUTS —- 


(u.er0) -— contains the file descriptor for the tty file 
r1 -—- i-number of file 


CUTPUTS - 
r1 - tty block offset 
xr? - source cr destination of information 
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ID U1-4 intract 


FUNCTION . = 
"intract” checks to see if the orocesse owns a quit or inter- 
rupt fror the typewriter. If it owns a auit, the quit flac 
is cleared ana the T bit (trace trap) of the processcr 
status is set. If'the interrupt character is a “del” (177), 
yeinty is checked to see if it is equal te the process 
core . If it is, control is transferred to “core. If 
not, sysexit is taken. 


CALLING SEQUENCE - 
br intract 


APCUMERTS — 


INPUTS - 
(so) - contains the instruction RO is pointine to 
uetty - pointer to buffer of ttv in control of the process 
(r1)+6 - interrupt character in the ccntrol tty’s buffer 
ueintr — determines handling of interrupts (fee eysintr in 
the UNIX Pregrammrers Manual). 


CUTPUTS - 
clock pointer is popped. 


~ If the interrurt char is a quit character, 

(r1)+6, the interrupt character in the control ttv’s buffer, is 
uegquit is cleared 

T bit cf ps is set 


- If the interruvt char is a “del” (interrupt) 


(r1)+6 is cleared ie 2 
control is transferred to core if (u.intr)= core 
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ID U136 rw 


FUNCTION = 
rv1 is called by sysread and syswrite. It putes 


the 


huffer 


sointer. (buffer) inte u.base and the nurber of characters 
(nchare) inte u.eccunt. If then finds the i-number of the 
file to, be read by getting the file descripter in *u.rO and 


eclling getfi . The i-number is returned in rt. 


APCUMENTS = 
‘ 
INPUTS - 
buffer -— buffer pointer 
ncher ~ number of characters 
4u.,rOQ - file descriptor 


CUTFUTS - 
uebase -— buffer pointer 
uecount — number of characters 


ri - contains the i-nurber of the file to be reaqg 


CALLINC ECEQUENCE - 
jsxr rO, rw 
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ID U1;:8& sysclose 


FUNCTION — 2 
sysclose , siven a file @escrintor in u.erC, closes the 


associated file. The, file descriptor (index to the u.fp 
list) is put in r1 and fclose is called. (See fclese 
H.2.)} : 


CALLING SECUENCE - 
sysclose 


AFCUMENTE - 


INPUTS — 
(u.er0) - file descrinter 


QUTPUTS - 
See felose outputs 
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Le] Ee veecrect 


FUNCTION - “ 

eyscreat is callei with two arcuments; name and mode. 
u.namep voints to the nare of the file and the mote is net 
cn the stack, namei is calle’ to get the i-nurber of the 
file. If the file‘already exists, ite rote and ewner rerain 
unchance’r, but it is truncated to zero lencth. If the file 
did net exist, an i-noce is create? with the new mewe via 

rakned whether or not the file already existed, it is onen 
for writinc. The fep table (see F pace ©) is then searches 
for a free entry. When a free entry is found, the oroper 
Gata is placed in it (see outputs below), an? the 
number of this entry is placed in the u.fp list. The index 
to the u.fp (alse known as the file @escrictor) is nut in 
the users rQ. For more information, see svscreat in the 
users manual. =* 


CALLING SECUENCE —- 
syscreat; nares; mcde 


PRCUMENTS — 
nare — name of file to be created 
mode —- mode 


INPUTS = 
ri - i-snumber of file if found 
(sp) - contains the mode argument 
uedirbuf - if file not found, contains i-number of new file 
iso - table of open file entries 


OUTPUTS - 
if file not found — new i-node is created (see makned) 
ri - conteins i-number of new file 
r3 - index inte fso table (file descriptor) 
r2 - index into u.fo list 
in free fsp entry - 1st word i-number of new file 
2nd word device number 
3rd word fo) 
4th word Cc 
u.fp list - entry nurber cf new fsp entry 
#u.rO — index to u.fp list (file descriptor of new file 
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UNIX IMPLEMENTATION 


In U137 sysentsunkni 


FUNCTICH = 

unkni or swsent is the system entry from various trans. The 
trap tyne is Aeterrined and an indirect jumn is radm to the 
appropriate eystem call handler. If there ir a tran insite 
the system a jumn-to panic is made. All user recisters are 
saved and u.esp points to the end of the users stack. The 
eys (trap) instructer is fecoded to cet the evstem cote vert 
(see tran instruction in the PDP-11 handbook) and from this 
the aineirect jum> address is calculated. If a bad svstem 
call is made, i.e., the limits of the jury table are exceed- 
eda, badsys is called. If the call is lecitirate control 
passes to the avpropriate svstem routine. 


CLLULING SECUENCE - 
through a trap caused by any sys call outside the syster. 


PRCUMERTS - 
arqurents of the narticular system call. 


INPUTS - 
e.syst+2, rO, sp, ri, r2, r%, v4, r5, ac, ma, sc 


OUTPUTS — 
cleckp - contains, Ss.evst+2 
uerC — points te the Iccation cf the users rf cn the stack. 
rO - sc saved on the steck . 
uesp — voints to the end of the users stack. 
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ID v1 


FUNCT 


CALLI 


UNITY IMPLEMENTATION 


$32 sysexit 


ION - 

sysexit terminates a process. First each file that the oro- 
cess has opened is closed hy "felose", The process status 
is then set te unused, The p.poid table is then searched to 
fins children of the aving process. If any cf the children 
are zombies, (died but not waited for) they are set free. 
The o.pid table is then searched to find the dayvine process’s 
parent. When the narent is found, it is checked to cee if 
it is free or it is a zorbie. If ite one of these, the 
Aying process just dies. If its waitine for a child te die, 
it is notified that it Aoesn’t have to wait anvrore hy set- 
ting its status fror 2 to 1 (waiting to ective). Tt is then 
awakened and put cn the runa by “putlu! » The Aaying orecess 
enters a Zombie state in which if will never he run = again 
but stays around until a “wait” is corolsted by its nerent 
process, If the parent is not found, the process fust dies. 
This reans swen is called with u.uno = O What this Coes is 
that wswap is not called to write out the process and rsewap 
reade a new process over the one that dies..i.e., the dying 
precess is overwritten and destroyed, 


NE EECUEKCE - 
eysexit or conditional branch 


ARGUMENTS = 


INPUTS - 


ueuno — the process number of the dyinc vorocess 
pnepid - contains the name of the process (See F, vage 19) 
peppid - contains the name of the parent process. 


p.stat - the status of the process 


OUTPUTS — 


Issue 


ueintr -— determines handling of interrupts - it is set to 0 
all open files of the process are close 

the process is freed 

r3 - contains the dying process’s name or number 

r4 -—- contains ihs parents nare 

r2 — is used to scan the process tables 

children of the @Gying process are freed 

ri & r5 are used to hold the parents orocess number 2 

If the parent of this dving process is waiting, it is set to 
active and the dying process is made a zombie an? the arent 
is put on the rund. 

uevne is cleared and the process is killed 
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UNIY IMPLEVPETATION 


Ip U135 eysfork 


FUNCTION — 

sysfork creates a new process. This process is referred to 
as the child process. This new o¥oces= core image is 3 coov 
of that cf the caller of "sysfork . The only Aietinction is 
the return location an? the fact that (u.rO) in the 014 pro- 
cess (parent) contains the process id (rp. pic) of (the ney 
process (child). This i¢ is used by syswait™ . sysfork’ 

works in the fcllowing manner: 

1) The proccss statue table (p.stat is searched to find a 
precess nurber that is unuced. If none ere found an error 
OCCUrS . 

2) Vhen one is fount, it becores the child process number 
and its stetus (auetat) is set to active. 

2} If the parent hat a control tty, the interrupt creracter 
in that tty buffer is cleared. 

4) The chile process is put on, the lewest priority run 
queue via “putin A 

5) A new process name is gotten from moid (actually its a 
unigue number) and is put in the child’s unique identifier 
the process i@ (p.pid). 

6) The process namre of the parent is then obtained and 
plece? in the unique identifier cf the parent process of the 
ees (o<Goid). The parent vrocess name is then put in 
uerd 

7) The child process is then written out on disk by 
wewap » ie@e, the nerent procese is copied onto disk ant 
the child is born. 

€) The parent process nurber is then restored to u.une. 

9) The chile crocess nare is out in (u.rQ). 

10) The pe on the stack sp + 18 is incremented by 2 to 
create the return address for the parent process. 
11) The uefp list is then searched to see what files the 
parent has openee. For each file the parent has cpened, the 
Beara fsp entry must be updated to indicate that the 

hild orecess also has opened the file. A branch to sysret 

me then made. 


CRLLIKC CECUENCE - 
from shell? 


p.eStat -— status of a sorecess active, dead, unused. 

ue,euno — parent process number. 

uUettyp - pcinters to narents process contrel tty buffer. 
moid - process name generator 

uefo — list index into the tsp table. 

feo - table of open files. 


QUTPUTES = 
pestat -— byte for child, vrocess is set to active if control 
tty for parent exists buffer + 6 is cleared child vrocess 
aurker ic ovmt on rund + 4, 
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UNIS IMPLEVEVIATICE 


pepid - appropriete entry in this table conteins the name of 
the child nmrocescs. 


Tre child process is written out on @rur with u.eunoe »eing 
the childs o.rocess number and (u.rC) centrining the  arents 
process namee 

ueuno - is restoread te the parents porecesse number. 

(u.erC) - contains the childs wrocess nare. 

sptif - cete 2 added to it te chance the return address cf 
the parent. a 
feptG -— number of processes that have opene? this ‘file 
byte cets increrented in the particular fsp entry. 
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VIX IMPLEMENTATIO“N 


ID U139 sysgtty 


FURC TIO, - 2 
"sysgtty gets the status of the tty in question. It stcrer 
in the three words addressed by ite arcurent tre status of 
the tycewriter whose file aeecrintor is in (u.ro). 


CLLLING SECUENCE - 
sysctty3; orc 
RECUMENTE = 
arg ~- address cf 3 word destination of status 


ILFUTS - 
ri - ttv block offset 
r2 - destinaticn of status data 
rcesrtri1 - reader control status 
tcertri - trinter control status register 
ttyt+4+r1 - flag byte in tty bleck which ccntains the mode. 


OUTPUTS ~- 
(x2) - contains the reader control status 
(r2)+2 - contains the printer control status 
(r2)+4 - contains the mode contrel status 
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UNI¥Y IMPLEMENTATION 


a) 

sysraate” is given a file nare. It gets the i-nede of this 

file into core, The user is checke? to sce if he is the 

guner OF the super user. If he is neither 2n error ccecurs. 
eetimol is then calle? to set the i-nede redificaticn bvte 


and the motification tire, but the rotification time ir 
overwritten by whatever get put on the stack during a syve- 
tire call (see systime). These calls ere restricted te the 


super user, 


CALLING SPCUENCE = 
syercate; name 


PRCUMTNTS - 
name — pointer te a file nare 


INPUTS — 

° 

ef by super user 
LU we * ae ee 


OUTPUTS - 


ismtirm - new modification time of the file 
iemtim +2 -— new mcedificetion time of the file 
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URIX LNCLEMENTATION 


ID O1:© sysrkcir 


FUNCTION = . 
sysmkdir creates an emoty @irecctoryv whose name is pointed 
to by arg 1. |The mote of the directory is arg 2. The soe- 
Cial entries . an®@ .. are not present. Trrers are indi- 
cated if the directory already existe, or the user is net 
the super user. . 


CALLING SECUENCE = 
sysrkdirs name; moce 


AEGUNPHTS - 
name -— points to the name of the directorv 
rode - mode cf the directory 


IhPUTS - 
ueuit - user id; if its 0 the user ise the super urer 
(so) - contains the second arcument mece 


an i-nodce fer the director: via "m=knod” 
> the flac in the directcry i~note 

set user id on executicn 

executable 

directory 
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UNITY IMPLEMENTATION 


ID U13;6 sysoren 


FUNCTION - 5; 
eysopen opens a file in the following renner: 

1) The second argument in a sysopen calls savs whether to 

open the file to read (0) or write (40). : 
2) The i-noce for the ovarticuler file is obtained via 
neamel . “ 
3 The file is then opened by tLopen . 
4) Next housekeeping is performed on the fsp table and the 
users open file list - u.fp. 


a) uefp ent fer are scanned for the next available slot. 
b) An entry for the file is created in the fer table. 

c) The nurber of this entry is out on the u.fp list. 

a) The file @escriptor index te the u.fo list is pointes 


toe by urd. 


CALLING SFOUENCE — 
sye opens names mode 


RECUMFENTS - 
name ~- file nare or path nare 
mode - 0 - open for reading 
4 - open for writing 


INPUTS - 
r1 — contains an I-number (pesitive or neqitive Gepending 
on whether and open fer reac or open for write is 
Cesired. 


OUTPUT - 
entry in fsp table anc u.fp list 
*u.r0 -— in@ex to u.fp list (the file descriptor) is put 
into r0’s locaticn on the stack. 
r2 - used as a counter through the u.fp list. 
x3 - used as a pointer to the becinning cf en fap entrv. 
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UNie Dee Le ee era 


Ip U1;6 sysread 


FUNCTION — 
sysread is given a buffer te read inte and the nurbver of 
charncters to ke reat. It finds the file fror the file 
descripter lecated in *u.rd (rO). This file Aescrinctor is 
returnes from a successful open cAll. (Sse svsonen (1, 
pege 1.) ‘ihe i-nurver cf the file is cbtained via rvt anc 
the deta is rea? inte core via reeadi 


e 
CALLING SECUENCE - 
ads buffer; nchars, ARCUMENTE - 
buffer - lecaticn of conticgucus bytes where input will he 


nchare - nurber of bytes or characters to be read. 
INPUTS = 
ri - contains i-nurber of file to be read, 


OUTPUTS —- 
#u.rQ contains the number of bytes read. 
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UNIN TMPLEMENTATION 


ID U13;2 sysrele 


FUNCTIOR - |, 
sysrele first calle tsawean it the time quentur for eae user 
is zere (see everet). It then restores the users rezistere 
and torne off the system flag. It then checket to see if 
there is an interrupt from the user by callirc isintr . If 
there is the output oets flushed (see isintr) and interruot 
action is taken by a branch to intract. If there is no 
interrupt from the user a rti is rade. 


CALLING SECUEKCR - s es 
fell through a bne in sysret & ? 


ARCUMENTS = 
INPUTS —— 

etack 

(s.chrot+2) ? 
OUTPUTS — 

sc, mq, ac, r5, r4, r2, r2, ri, rO restored. 


evsflac —- turned off 
clockp - pcints to s.chrett2 
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UNIX IMPLEMENTATION 


TD Uts2 Bysret 


FUNCTION - 
syeret first hecks to see if the process is #hout to be 
terminated (u.ebsys). If it is sysexit is called. If. Hot 
the fLollewine happens 
1) The userr stack p 
2) r1=O0 anc icet is calle? to see if the last mentioned 
i-noge hes been ro@ified. If it has it is written out. 
3 wf the super block has been rodifiec, it is written out 
bla vpoke . 
4) Ti the disrcuntable file seystem’s super bleck har heen 
modified it is written out to the ere cified Fevice via 
MNDOKeE ¢ ’ 
5 I. checw ig made to see if the users tire cuantum (ue 
quant) ran out during his execution. If. so, “tewap is 
callece to give another user a chance to rin. 


é) evsret new cees into sysrele. (See svsrele for ceneclu- 


CALLING SECUFMCE - 
jump table or brsysret 


ARCUMENTS = 


INPUTS - 
uebsys - user’s had system flag 
ueso - user’s stack pointer . 7 
r1 - uses internally - set to 0 for iget call 
smoil — set if super block has been modified 
mmca - set if disrountable file systers suner block has been mecified 
u.cuant - user’s time quantur 


OUTPUTS - 
sp =— points to users stack 
srod ~— cleared if it was set 
mined - cleared if it was set 
sb0Q - write bit is set during execution of sysret 
eb1 - write bit is set Curing execution of sysret 
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MUNIN IMPLSMENTATION 


ID U1;5 csysret 1 


FUNCTION = see ‘sysret’ 
CALLING SEQUENCE - si 
PRCUMENTS = . 
IKPUTS + = 

ee 


OUTPUTS - 
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UNIY IMPLEMENTATION 


IO Us) -everet 2 


FUNCTION = see ‘syvsret® routine 
CALLING SECURNCr - - 
ARGUMENTS = . 
INPUIS = : 


CUTPUTS - 
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UNIY IMPLEMENTATION 


Ip U1;9 sysstty 


FUNCTION - 


"eysstty" gets the etatus and mode of the tyvnewriter whose 
file @escriptor is in (u.r0). First “ettyv" is called to cet 
ene tty blocx and the sfource or the status information. 
gete is called until tre input clist is flushed. The out- 
put character list is checked, If some characters are on 


it, the process is put to sleen and the input list 


is 


checked again. If there are no characters, the information 
in the source is put into the reader control status, printer 


control status registers and the tty’s flag byte in the 
block. 


CALLING EFCUENCE - 
syecsttyvs arge 


ARGUMENTS — 
arg. ~ address of three consecutive words that contain 
source of the status date. 


INPUTS - 
ri - offset to tty block. 
r2 - nvoints to the source of the status information. 
arace above. 
rittty+3 - contains the cc offset. 
r3 > usec to transfer the source information to the 
status registers an’ block. 


CuUTPUTS = 
ps = set te 5 
reertre1 -— contains new reader control statue 
tesrtri — contains new printer centrol etatus 
ttyt4+ri —- contains new mode in the flag byte of tha 
block. . 


tty 


the 


tty 
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UNIX IMPLEMENTATION 


TD U134 syswalit 


FUNCTION - 

syswait waits for a process to die. Tt works in the follow- 
ing wav: 

4) from the parent process number, the parents procees nares 
is found. The p.eptid table of parent nares ie then searched 
for this precess name. If a match occurs r2 contains the 
childs precees number. The child’s status ic checked to see 
if its a zombie, i.e., Cead but not waited for, (p.stet=3). 
If it is, the child process is freed an? its name is put in 
(user). -? return is then mate via "eysret'. If the child 
is not a zombie, nothing happens and the esearch coes on 
throuch the o.poid treble until all processes are checked or 
a zombie is found. 


2) If no zerbies are found, a check is made to see If there 
are anv childcren at all. If there sre none an error return 
is meade. If there are, the overents status is set to 2 
(waiting for child to die), the parent is swar ced out and a 
branch te syswait is made to wait on the next vrocess. 


CALLINC SFCUENCE - 
? 


ARCUMENTS - 


INPUTS — 
u.euno — parent process number (process number of process in 
core) p.epid - table of names of processes neppid - table of 
parents names of processes. pestat - contains status of 
process . 

- free or unused 

- active ; 

weiting for process to die 

- zombie 


WoO 
u 


CUTPUTS - 
x2 — used as index to o.pid, oepnid, p.stat tables 
r3 - used to kero track of the number of children 
ri - has varents process nurber 
If zorhie found - its status p.estat is freed (set to C) 
- its name is put in (u.r0) 
If no zombies found — status of vnarent is set to 2 
(waiting for chila to die) 
- parent is swapped? out 
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WIX TEPLEMSNT ATION 


In U1-S syewrite 


FUNCTION - 
sysurite is given a huffer to write, onte an cutput file end 
c charecters to write. It finds tre file fror 


the numoer of 

the file Gescriptor lecrted in #u.rt (10). This file 
descrivtor is returned from a successful onen or creat call 
(sce sysopen,, OF, sysereat). The idi-number of the file is 


ebtaincd yia rw4 an the buffer is written on the outnut 
file via "“writei’. 


EECUMENTES =. 


butfer — lecation of contiguous bytes to be written 
nchera - number cf characters to ke written 


INPUTS - rt — contains the i-number of the file to be writ- 
ten on 


CUTPUTE - 


*u.rO = contains the number of bytes written 
\ 
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UNITY IMPLI pe mete he TOT: 


Ip U2-9 anvi 


PULCTION - | 

anyi- is called if a file has been deleted while oven. 
“anyvi" checks te sec if someone elsc hes openc? this file. 
It searches the fen treble for an i-nurber contained in rt. 
Le pares i-nomber is fount (if someone elee apeneer the file) 
the "file “Jeletea” flag in the umper byte of the 4th werd of 
the fs entry is increrented (see FT, pace 8). In other 
words the celeted flag is passed onto the ether entry of 
this file in the fan table. Mote: The same file may anrsear 

more than once in the fan table. 
If the i-nurber is not foure in the fen teble (no one else 
has onened the file) the corresponding bit in the i-nede rac 
aie Cleeres freeing that i-nete and all blocks related to 


CALLINC SHCUPRNCr - 
jer rO, anvi 


InFUTS - 
r1 -— contcins an i-nurber 
frp — start of table containing open files 
r2 — points to the i-nurber in an fev entry 


OUTPUTS 
eeretes™ flac set in fep entry of anor ner eccurence of this 


a 


file and r2 points to 1st word of this fsp entry. 


if file not found - bit in i-node ma in is clerred 
(i-node is freed) 
- all blocks related to i-ncde are freed 


- all flacse in i-node are cleared 
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UNIX LTNPLEYEMTATION 


In U2-G arg 
FUNCTION = 
arg extracts an arcument for a routine whose enll is of 


P- 
LOrrs 


sys ‘routine’; arct 


a 5 
or 
sye ‘routine’; erg1; arc2 
or 
sys ‘routine’; arc1se..3 arg10 (sysexec) 
CALLILG ErCcurncs - 
jer rO, ara; addres 


BRGUMEDTS - 
*A@dress’ -— aderess in which extracted arcurent is stored 


IuPUTE - 
Uesotis - Contains a vointer to one of @rqi,.e., arcne This 
peinter’s valuc is actually the value of the updated ne at 
the time the trap to evsent (unkni ) le made te process the 
eys instruction, 


Pp 
nm 


rQ -~ Contains the return eddress for tre routine that calles 
arg. The fata in the werd nointer to by the return actress 
is ugced as the address in which the extracted arcurent is 
stored, 


OUTPUTS - 
“address’ —- Contains the extracted argurent 
uesotie - is increrented by 2. 
r1 -—- Contains the extracted arcument 


rO - Foints to the next instruction tc he executed in the calling 
routine. 


CA LLS = 
CALLER BY - 


evechdair, ere2, sy 
eysurmount 


rii, sysert, sysilcins, sysmdate, cttv, svrunlink, svsfs 


- 
. fe 
break, seektell, sysintr, svscuvit,. 


ne 
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UNIY DTMPUNYrNr es TiIO™ 


SURCTICN = 


Takes first ara. in system call (nrcinter to neme of file) 


an? puts it in location u.snemep; trkes secent arg and pute 


it in u.cff and on tep of the stack. 


CHLLING SECUEKCE = 
jer rC, arg2 


APGUMENTE -— 


INPUTS = 


u.narep 


uecft 
u.eoff pushe? on stack 
ri 
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ID U2-4 


FUNCTION - 


See 


als 


CALGING SECUTNCH - 


ARRPCUMENTS = 


were 
avr u Ss = 


CULPUTS - 


Issue D Date 


3/17/72 


VNTY TMPLEMEYTATICN 


etc routine 
ee 
is 
_ 
- 


ID ‘IMO.1-4 


Section 4.2 Page 4 


It) t2=14 error 4 
FULRCTION — See 


ChULING SECVELCE = 
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HITX INPLEMSLTATION 


"error’ routine 


w 
w 
e 


ID IMOsi<1. 


ULIN IMPLEMENTATION 


TAP THT oa ° o 
PUNCTION = See “error” routine 
CALLING DTOUrUCT = ds 

an er eee a we yr od wake 

7 Ud 
MECUUIRTE = 

or . i: we 
IsPUTES ~ 

we 
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Foes. ar 
Low we 


THELTUTNTATION 


In 02-9 fcloge 

PENCUIC e 7 
Civen the file Geseriptor (index to the u.fp dict). "Folore 
first gets the i-nurber of the file via gett . If the 
ienede is active (i-nurber AC) the entry in the ou,fr list 
is cleared. If ‘all the ovreocesfes that opened thet file 
close it, then the fsp entry is freed ant the file is 
closed. ‘If not, a return is taken, If the file has, heen 
Zelcted while oven (see "deleted flag” F, pace &) “envi” is 
called to see if anyone else has it epen, i.e., see if it 
ampears in anether entry in the fso teble (see anvi for 
details H.2 page C). Upon return from anyi a check is 
made to see if the file is special. 

CALLING EECUENCE = 
jer rO, fclese 

ARGUMENTS - 

INEUTS - 
r1 - contains the file descrivtor (value = 0, 1, 200567) 
u.efo - list of entries in the fsp table 
fs. - table cf entries (4 words/entry) of open files. 

(see F, vage &) 

OUTPUTS = 
r1 — contains the same file Aescriptor it entered with 
if all processes that open file close it, the fsp entry 
is freed and the file is closed. ss . . 
if anyi is called the gutouts in anyi occur (1.2, vace 0) 
the number of vrecesses hyte in the fsp entry is decremented 
(sce F, page ©) 
r2 - contains i-number. 
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UNIN IMPLEMENTATION 


IP U2-4 getf 


SUSNCTICU = 


“gett” first checks to see that the user has not exceeded 


Pod 
the maximum number of open files (10.) If he har an 


error 


occurs. If not, the incex into the fen table is calculated 
from the u.efp lists u.fofp contains the ad¢cress of the 3r? 
word in that fsp entry. (The file offset. See F, nace &) 
cdJev and r1 centain the device and i-nurmber of the file. 


CALLING SEQUENCE —- 
jsx rO, getf 


PFRCUMENTS = 


INPUTS — 
ri - contains index into vu.fp list 


OUTPUTS - 


uefofp - contains address of 3rd word in that ‘sp entry. 


cdev - conteinse files device number 
r1 =- contains files i-number. 
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UNIN IMPLEURNOATION 


FUNCTION 
"isdir” chects to see if the i-note wheee i-nurber is in rt 

is 2 Girectery., Ti at is, an errcr cecurs, hecavec “tsdir 

is calles by evslink and sysunlink to make sure Airectorics 
ere. Hot. linked, If the-ucer de the super tier (ita s.-0) 4 

isGir ces net bother checking. The current i-nede is not 
disturbe2. 


CALLING CRCURNCE = 
jsr rO, isdir 


INPUTE - 
r1 — contains the i-nurber whose i-nete is beinc checked, 
ueuid - user id 
li - current i-node number 
i.fles -— flac in i-node (this is tested to se if the inode 
is a eirectory i-nede) 


CUTPUTS —- 


x1 - conteins current i-nurber upon exit 
current i-node hack in core 
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UMTN LTHPLEMEMPATION 


PUHC pia onan “ 
ison: An coiven.a tile nemes It finds the. tenurher of that 
file via namrei then gets the i-node into cere vie icet. 
It then tests to sea if the user is the suner user. If not, 
it -checks ‘to see if the user is the owner cf the file. If 
he is not, an error cecurs. If user is the owner setimrcd 
is called to indicate the i-nede has been moeified and the 
2nd argument of the call is put in r2. 


CALLING STCVUENCK = 
jer r0O, isown 


APCUMENTS 


INPUTS - 
arguments of syschrod or syschown calls 


CUTPUTS —- 
ueuid -—- ic of user 
imotd —- set to a fq 
v2 — contains second arcument of the eveter call 
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Chie TSP Lae NTP TON 


It) U?2-{7 makneec 


FUNCTION = 


maknot creates an i-nofe and makes ai @irectery entry for 
thie di-nce€e in the current directory. It gets the mete of 
the ie-nofe in r1 the name is used in mkdir for the directory 
entry (see makdir E.2). The t-node is made in the folleine 
manner. First the allocate flag is set in the mece. *® ecan 
of i-nodes above O beyins. The it-note map is checkes to see 
if that i-note is active. IF it is the next i-nod= in the 


bit map is checked until a free ore is founc. IF one is 
foun? a check is made to see if it ir already allocated. If 


it is, the search continues. If not the i-number is put in 
uedir bit and a directory entry is mace via mkdir. Then the 
new i-node is fetched inte core and its parameters are set 
(sce outputs). 


CALLING SEQUENCE — 


ARC TEL 


jer rO, mxnoc 


as onan 


INPUTS - 


OUTPI 


Issue: 


r1. = contains mote Li - current i-number - should be at the 
current Cirectory mq, r2 - bit position & byte address in 
=“$nOle mao 


ra 


TS om 
uelirbut —- contains i-number of free i-node 
i.fles - clag in new i-node ‘ 
i.euid - filled with u.euvil 
ienlxs - 1 is put in the number of Links 
iectim - creation time 
Lectimt2 — modification time 
imoi - set via call to setimro?d 
PD Mate 3/17/72 IPD IMO.4=—4. Section Hs2 Page 14 


UNIX IMPLIUUPUTATION 


IP U2-2 mkdir 


FUDCTION - | 
mkdir makes a directory entry from the name vointed to be 
ueunames inte the current directory. Bi nie age clears the 


lecations u.dirbuft? - u.cirbufti10. "mscir then moves 2 
character ata tire into u.dirbuft2 - y.cirmuttid, checkinc 
each time te see if the charecter is a / . fo ee, on 
error occurs, kecause / should net appear in # directory 
NMC o 


7 pointer to an emnty @Girectory slot is then prt in u.0ff. 
The current directory i-node is brought inte ccre ans an 
entry is written into the directcry. 


ARCUMENTE =. 


INPUTE - 
r2, Uenamep — points to a file name that is about to 
become @ directory entry. 
r2 - points to u.dirbuf lecetions. 


ii - current Girectory’s i-nurber. 


OUTPUTS - 
ueCirbuf+2 - u.dirbuft+10 — contains file name 
ueoff — points toe entry to be filled in the current directory 
uecease — points te start of u.dirbuf 
r1 - contains i-number of current directcry 
See wair for others. 
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nu 


CALLI 


REGUEE 


TiPuTsS 


OUTPUT 


Issue 


UML vy 


TMPLEMPETATION 


name (addarercs of in 
current directory roct 
First charecter in the etrinc ¢ toa 
"/") ern returns the i-nurber for the file 
Laan es in the followings ranner3; 


. 
amed 
us.namep) 
Circctoryv (if t 
by Uuenemen 
in ri... narei 


efrince 
ar tke 
nointe? 


rh 


vy 


file may be 
to the users 
in the 
char /. 
cates 
name of 
storea 


referenced in one of two waves; cither relative 
directory or relative to the reoetdir airectorv; 
secon’ case the file path name must begin with the 

Whenever a / is encountered in peth name it indi- 
that the characters vreceeding it renresent the vath 
a directery, and the file name following the / is 
in that directory. 


+ 
Ce 


Directories contain ve ae an eee the first 2 bwtes con- 
tain an i-nurker, 


with the i-nurber. 


nameil scans 
1 it reads 


the file path nare until it reaches 
the current directory until it finss a 
which matches the scanned portion of the file 
When a match is found, the i-number is taken 
matched directory entry. If namei has scarnnes to 
the i-nurber is that for the FAS wspecified by the file 
name If namei scanned to i then the ie-nurber is 
of the next Airectery in the narei serns the 
meth name until it reaches a "/" or a nul, etc. Tf no 
is founé return to nofile; otherwise norma aa; 


NAMC « 
the 
then 
neath 
that 
file 
file 


mC SNCUERNCT = 


jer rO, namei; nofile; normals 


TS 


a 
uenamed (noints to a file path name) 
uecdir (i-nurber of users “Airectory) 
ueccev (device number on which user Girectory resides) 
ri - conteins the i-nurber cf the current directory (u.ece@ir) 


TS 


r1. (i-enumber of 
ec:ev 


file referenced by file path nare) 

r3, r4 (internal) 

uecird - points to the directory entry where a match cccurs 
in the search fer the file path name, 
If no match uedirb points to the en? 
firectory and 
r4 i-nurber of the current @irectery 


of the 


3/17/72 Section H.2 


D Date ID IMOstet- 


CUTY CIMOLEMENT ET EC 


seektell puts the arcurents fror a sysceak and svetell cell 
in uebase ant u,.count. It then gets the i-nurber of the 
File from the file Cescrintor in *u.rQ an? by calling getr . 
The inode is brouwcht inte corse anc shen t. count is checke” 
to see if it is a OG, 1 or 2. 
If it is GC -— u.count stays the same 

4 - u.ceunt = offset (u.fofp) 
2 - uecount = i.size size of file 


t 


CALLING CNCURNCE - 


jer rC, seektell 


ARGUMENTS = 


ILPUTS - 


ueresc — puts offset from sysreck or systell call 
uecount - nut pfrneare from syveseek or systell call 
Mu.rO - contains file descriptor (intex te u.fp list) 
iesize - size of file in bytes 

*u.Zofo - peinte to 3rd word of Isp entry 


OUPTPUTS - 


‘ 3 i ee 
an i-noce in core via iget 
r1 - ijnumber of file in questicn 
uecount — see function above 
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UMIZ 


DU2-7 sycbreak 
PURCTICA - a 
sys>orear sets the procrare brea coint. It checks the 
. oe al . ‘ we 
current break point (u.oreak) to see Lf it is hetreen core 
and the stack (en). If it is, it is mde an even eftressr 
(if it wae cdc) and the area hetween u.bresl: and the stack 
is cleared. the new breakpoint is then put in u.break ant 
control is nresed to syeret . 
CALLING CECUPTCE = 
SYShreaks ASL 
ARCUNTRTS - 
addr - address of the new break voint 
IMPUuTE - 
uepreak - the current break point 
OUTPUTS — 
uebre|a’t - contains new break point 
aren vetereen old u.break and stack is cleared Lf u.ebroerk is 
we we 
Peteecn core ant the stack snp. 
\ 


rete 


3/17/72 


Ip t MO t4 


f TT 7 
TMPLUMPMPATION 
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WEES TEP DEM TON 


frrchoir malies the Airectory snecifies in its arsurent the 
current workine directory. 


ALLTMIC orourier - 
Fen Ooi 


Cae a oe Oe 


SYVECIMILT S$: name 


Dae De Me ant 
ANCUMENTS baa 


name — address of the path name of a directory terminated by 
a nul byte. 


i.flss - i-neve flag 
r1 -—- contains i-number 
cdev = conteins Cevice number of i-node 


OUTPUTS - 
r1 — conteins i-nurber 
ueceir - i-number of users current directory (same as r1) 
uecdev — device nurber of current directorv 
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In U2 
PUSCT 


Ue 


TMIPLEMENTATION 


-2 syserec 
ION = 
sysexce initiates execution of a file whose path namo if 
pointed gee Sy name in the evsomec call. svserec performs 
the followin: cperations: 
os ‘8 2 oe , a 
41. obtains i-number of file to be executes via nerei . 
w ii] 

2. obtains i-noce of file to be executed via icet 
3. sets trap vectors to system routines, 
4, loads arcurents to be pzssed to executing file inte 
highest locations of user’s core. 
Se puts nointere to arguments in locations immediately fol- 
lowing arguments. 
6. eave number cl arguments in next location. 
7. nitializes user’s stack area so that all recistere will 
be Poe: anc tne P& cleared and the PC set te core when 
everet restores registers ane dots an rti. 
&. initializes u.ro an? u.s>. 
cy eros user’s core down to u.ro. 
10. reece in executable file trem storage device into ‘cere 
starting et locaticn "core". 
11. sets u.ebreak toe voint to end of uscr’s eecde with @atn 
area Se 

ow Ty vw Li] 
12. calls evseret which returns control ot location core 
via rti instruction. 
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CHLLINC CEQUEECE - 
SyS CHECS nareDp5 


ADCUMENTE = 
nemeb (voints te 
argyp ‘Cn dress of 
“ALCD1 gee0, BYODN 
argos 
etrings) 


INPUTS 
namep 
arg. 


OUTPUTS - 


ssue DP Dete 2/47/72 


races TPL MTIITAL TO 


ee Se 


file pat, Neme of 
tesle of arqument 


file te he exmecutec 
pointers) 


(table of arcument vointers) 


ID IMOst=t 


arepns Lee el (argument 
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Cie SES ei ATI 


TH U2e4 osysfeatat 

PscTviIc? = 
"ceysistat” is identical to "evestat” excent that it oneretes 
cn open files instead cf files given by name, Th oute the 
puffer address on the etack, gets the lenumber and checks to 
sec if the file is.open for reading or writing. IF the file 
is open for writing (i-nurber is negitive) the i-number is 
Ss e 


set positive and a hranch into eysstat is made. 


CALLING CECUENCE —- 
Estat; buf 


ARCUMENT -— 
buf —- buffer address 


INPUTS - 
(u.r0} file descriptor 
OUTPUTS = 


buffer ais leaded with file information. See UNIV Pro- 
orarmeres Manual under svsrtat (IT) for format ef the buffer. 
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UNIN TNPLEMUNTATIO“N 


In U2-9 esvegetuid 


FUNCTION — 


B 
sysgetuid returns the real user IPD of the current orocess. 


The real user IP identifies the person who is loraet in, in 


contradistinction to the 
his access permission at 


effective user IM, which eeterrines 
earch moment. Tt is thus useftl 9 


we ¥ 
programe which overate using the set user ID mode, to fin? 


out who inveked then. 


CALLING CEQUENCE = 
eysyetuist 


ARGUMENTS = 


INPUTS — : 
vueruid —- real users ic 


OUTPUTS — 


(u.erO0) —- contains the real users id. 


Issue ND Date 3/17/72 


Ul. PD ee Pes 


Ip U2-8 ocvsintr 


PURCTION ~ = 
avsiatry sets the interrupt handling value. , It nuts the 
Sroumsnk oof dite, cers in-tseinirs. svcintr then branches 
into the “evsquit” routine. wetty is checke? to eee if oa 
control tty exists. If one does the interrupt character in 
he tty buffer is cleared and sysret is called. If one does 
not oxist sysret is just called. 


sysintr; arg 


RECUMNENT = 
arg - if 0, interrupts (ASCIT OXLET®) are ignored. 
- 1£ 41, interrupts cause their normal result, 
i.e., force an exit. 
- if arc is a location within the program, control 
is nassed to that location when an interrupt 
occurs. 


IKFUTS — 
uetty — pointer te centrol tty buffer. 


CUrPUTS - 
ueintr has value of arg. 
(c1)+S (interrupt char in tty buffer) is cleared if a 
control tty exists. 


Issue DP Date 3/17/72 
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ay ar ” 

syslink is ci 

is a file that alresndy 
ene Sriey. “ie t 

Hill then be a Tink 
name 2 


were 


arcumoents, 
existe. 


es 


to the name 1 


IMOLIMENTATIOY 


qe in the current aircctor. 
The i-nyrber in the 
antry of the current directory is the same i-nurber 


name 1 and name 2. name 4 
nerme 2 is the name civen to 
name 2? 


for the nare 1 file. At the en@ of a syslink call the fol- 
lowing structure is constructed, 
' ' ! ! i Renna eee | 
Be neice cont eis | eer eneeens, Beet rinen even | 
H { | denode | Jo onarme 4} 
bosons Se Lee ' |. . er H | file | 
current i | ' name 1! | | 
directory | en ee | ! file } H | 
{ 1 ! ' { 1 
' 1 ' t | 1 
! ! ! I ! \ 
Pees pee eee 
| nare 2 entry | H | { t 
! ! ! = _! ! t 
| er ee | | -----—= | tee | 
eet ! 
Ye | 
| some other | 
| Airectcry | 
' 
(ee eae eee | 
| name 1 H 
1 ! 
!_---—--—-—+———--— | 
CALLING ENCQUENCE = 
evelinks; name1t; name2 
ARGUMENTS = | 
mame 1 - file name to which link will he created. 
name 2 — name of entry in current directery thet links to 
name 41. 
/ 
INPUTS —- 
uenamed —- points to the arcquments above. 
i 
CUTPUTS - 
entry in the current Girectory with name, name 2. 
r1 — contains i-number of name 1 on exit and i-nvmber of 


current cirectory intermittently during subr. 
i.nlks - incremented by 1 to indicate another link added. 
imnocd - set by call te setimed. 


Dp 


Date 


3/17/72 


ID IMOs4=4- 
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IEE, CI MPLE MEE LGS 


Im U2 syequit 

panera Oychetty OR 
SysuLt turns off the quit sionals. Ji pute the arcumenk. of 
the Gali- an jigtnit,. Welt: de -cheekec “to sae 25 contro) 
tiv existe, It ene Coes, the interrunt. character In -the ct 
Iivlecs. 46 Cleared arm everet is calleé. If one goer not 
exist, evsret is juct called. 

CALLING STCUENCE - 
eysquits; arc 


APCUMEND 


aye = 12 0 this call cisables quit sicnele from the tyrewri ter 
(ASC FS). 
- if 1, cults ere re-enabled and ceuse execution te cease 
ane a core imace to be produced, 
- if an address in the prograr, a quit causes control te 
be eent to that location. 
INP Urs — 
uettyv — pointer te centrol tty buffer. 
QUEUES 
uetult - has valve of arg 
(r1)#6 - (interrupt char in puffer) is cleared if a con- 
trol tty emists,. 
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UNTY IMPLEMENTATION 


TP Wet everett 3 


o id . 
PUNCTION = Fee everet routine 
POPP OES CO DATIIIOnN be 
CRLLINC SEeeCurn ju 
-e5 , 
ARCULMINTS = 
ow 
INPUTS - 
i] 


rimyrien 
CUTPUTS = 
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In U2—4 


PUNCTICIH — 


syeret 4 


CALLING ONCUNLCT = 


ATT Typ a 


Phas Uibbliatd Nos 


INPUTS = 


CUTFUTE - 


Issue PD) Date 


3/17/72 


UNIZ 


" routine 
. 
" 
Lid 
" 


ID IMOst4. 


LMOLEVEMEATIC! 
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Th W2=1 
SURCTICHE 


CALLING 


pi 1 
me oULE a 
| ae 
INPUTS — 
OUTPUTS - 
Iesue Dp 


Dete 


UDLX. IMPLEMENT RILON 


sycret 9% 
ww 

- fee sysret routine 
pla eobal ghed = 
aha We ae OE 

i] 

w 

we 

t 
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UPIY LTNDPLEUMMPATION 


ID U2-C sysseok 
PUNCTIOMU = 
syesook changes the rf vointer (3rd were in en fen ontry) 
of an open file wheee file Ceseriztor is in uerd. 
The file cescripter refers te a file open fer readinc or 
writine. The reaé (or write) pointer for the Zile is set as 
follows: 
if ptrnere is C, the pointer is set to offset. 
if motrnare is 1, the pointer is set tc itr current loca- 
tion olvs offset. 
if atrname is 2, the nointer is eet to the size of th 
file plus offset 
The error bit (e-bit) tis set for an wrdefined file 
descriptor. 
CALLING CEQUENCT - 
syecseeks offset; ptrnare 
APCUMTRTS = 


offset — number of 
ptrnare — a switch 


bytes desired to 
inéicated ahove 


move 


T?euUTs = 
u,bacse 
weccunt (Sec seektell) 


CUIPICS = 
ueftoftp - peints 


The r/vy pointer is chan according 


= 


nD “ 


Ivcue Date 3/17/72 


to the r/w pointer in th 
noed 
a 


the r/w vointer *y 


e fsp entrv. 


Section 2 


to offset and ntrnare. 


Pace 22 


Ws ee ere. 


eyvaectak sete She etrcus of 2 fi) The arcquments are the 
meroce> the fide and a bitter acarece. She~ Sunler ie- fabs 
Prien Lene ani -intorretion about the file Le ploeas in 2te 


7 vw ee < 
gyeetet cells narel to get the l-nugter on te Siew “Then 


Sad ro is called to cet the i-ncete in core. The buffer ir 
then leaded and the results are given in the UNIX Pro- 
qramrers Manual sysstat (II). 


nares; buf 


nts to the name of the file. 
ess of a 34. byte buffer 


sp =— contains the adéress of the buffer 
r1o-—- iemirber of file 


OUTPUTE =- 
buffer is loaded with file information. 
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UNIX IMPLEMENTATION 


eunReT ion. ss 
Lil w 
syecetui’ sets the user if u. uid ef the current process to 
the process if (u.r0). Toth the effective user and u.uir 
and the real user u.eruid are set to this. Only the super 
uze end make this call. 
CALLING SZECUDN - 


ee 


ANGCUMIETS = 

INPUTS - | 
(u.rC) - contains the orocess if 
uereic - a user ia , 
Neuic -— effective current user id 


OUTPUTS 
at ah val to the process id (u.r0) 
uetiid - sct equal to the process is (u.erc) 


Section 4.2 Trane 320 


UNITS IMCL EAT LO 


Irn 2-7 sysetime 
PVUNCTION = 

s : CT) 7 % A « s Ker sas 3 - a th ico 

syestimwe the time. Onlv the surer user can use is 


‘call. 
Ser tercy a 


: 
evectine 


N 


sete 


TEPUTS = 
sot2, spt’ time system is to b 
vster is set te. 
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UNI Tes 


weds one Si 


ATT 


Tapp e 
PURCTE - i. 
‘ . 
toe tak * de 2 ye = x * G 
SToCLne Cele the. Sime Of the senre: Ine present: Time. 2c 
4. to Se + 
Ut Ch Lhe (fra Cus 


ATT TR omar 
CALLTINC pak gas Go - 


; 
systime 


eaten pppoe 
APGUMENTS = 


we 


OUTPUTS - 
Spt2, spt’ - present tire 
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TC hae eee oF eas 


Im U2-1 sysunlink 


TUNCPTION — 

RCs removes the -cntrye for the “file: “pointed to. “x7 
name from its directory. Tf this entry war the last link to 
the file, the contents cf the file are free’ an? the file is 
destroyods Iz, however, the file was epen in eny process, 


the actual Certruction is Celayed until it is closed, even 
trough the Cirectory entry hes disappeared. 


The errer bit (e-bit) is set to incicate that the file <4ees 
not exist or that its directory cannot he written. Writs 
permission is not required on the file iteclf. It is alec 
illesal to unlink e directory (except for the suner-ucer). 


CALLING CNGUENCE = 
syslinks name 


RCU:F CEPTS 
name -— name of directory entry to he removed 


Tw. TIS 


et a 


vuenamedo - oveoints to neme 
rt - ienumver aecrociated with name 


FE og 
Lenlks — number of links to file gets decremented 

uecfi -—- gets moved vac 1 directory entry 

imod - gets set by call to setimoc 

if name was Jact link contents cf file freed and file des- 
troyed | oa 

entry name in directory is free (its first word that usu- 
ally centains an i-number is zeroed. 


Iecuc D Pate 3/17/72 ID IMO. Section 4.2 Pace 33 


Wi. Soa eae 


sectory ehtscy into the current cirector:y 


ChULING CECUELCE + ‘ ‘ 
jer rC, wdir - in syslink 


Ecllows mkdir directly 


uettixbus -— sadress of where name of Airectory is kep 
Li - contsins the current directories i-nunmber 


OUTPUTS = 
an entry in the current directory 
uedese — points to u.dirbut 
uecount - = 10 
ri — contains the current directory’s i-number 


Ienue P Pate 3/47/72. ID TMOtHt Section "42. Pace 24 


UNIX IMPLEMENTATION 


ID U3-3 clear 


FUNCTION — | 
clear zero’s out a block (whose block number is in r1) on 
the current device (cdev). “clear” does this in the follow~ 
ing manner: 
1) *w slot’ is eared, which obtains a free I/O buffer (See 
*“poke’ H.8, page 5) via “bufaloc’. 


Bits 9 and 15 of the 1st word of the I/O queue entry are set 
to set up the buffer for writing. 


2) The buffer is zeroed and written out on the current dev- 
ice for the block (indicated by r1) via ‘dskwr’. 


CALLING SEQUENCE ~+ 
jer r0O, clear 


ARGUMENTS <= 


INPUTS — 
ri - contains block number of block to be zeroed 
ecdev — current device number 
r5 ~ points to data area of a free I/O buffer 
See inputs for bufaloc, wslot, dskwr 


OUTPUTS — . 
a zeroed I/O buffer onto the current device 
r5 = points to last entry in the I/O buffer 
r3 - has O in it. It counts from 256-0. It is used as 
a word counter in the block. 
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UNIX IMPLEMENTATION 


ID U3-3 copyz 


FUNCTION = 
clears core from argi to arg2. 


CALLING SEQUENCE <= 
jer r0, copyz; argi; arg2 


ARGUMENTS = 
arg! — address of lowest location in core to be cleared. 
arg2 - address of highest location in core to be cleared. 
argi < arg2 


INPUTS - 
rO — return address for the routine calling copyz. Ite is 
used to access argi, then arg2 and, finally, set to the 
actual return address of the calling routine. 


OUTPUTS = 


r0 <- points to the next instruction to be executed in the 
calling routine, 
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UNIX IMPLEMENTATION 


ID U3-3 idle 


FUNCTION -, 

idle saves the present processor status word on the stack 
then clears the processor status word. 
Clockp ts saved on the stack. It points to one of the clock 
cells in the super block. clockp is then made to point to 
another set of clock cells specified as an argument in its 
eall. 
When an interrupt occurs clockp and the prcecessor status 
word are popped off the stack thus being reset to their 
values before the call took place. 


CALLING SEQUENCE - 
jsr r0, idle 


ARGUMENTS — 
s.wait + 2 


INPUTS — 
ps — process status 
clockp - clock pointer 


OUTPUTS - 


ps - restored to original value 
Clockp restored to original value 
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UNIX IMPLEMENTATION 


ID 03-3 putlu 


FUNCTION = , 

putlu is called with a process number in r1 and a pointer 
to the lowest priority Q (rung+4) in r2. A link is created 
from the last process on the queue to the process in r1 by 
putting the process number in rt into the last process’s 
link. (The last process’s number slot in p.link.) The pro- 
cess number in r1 is then put in the last process pgsition 
on the queve. If the last process on the queve was L and 
the process number in r1 was n_ then upon return from putlu 
the following would have occured: 


ae runq+4 eae | pelink + L-1 
pesrperrmrs part elles rename nt 
ARGUMENTS — 
INPUTS — 


ri — user process number 
r2 = points to lowest priority queue 


OUTPUTS — 
r3 = process number of last process on the queue upon 
entering putlu 
pelink-1 + (r3) - process number in rt 
x2 =~ points to lowest priority queue 
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UNIX IMPLE”ENTATION 


ID U3-2 rswap 


FUNCTION = 


rewap reads a process, whose number te in r1, from disk 
into core. 2 * (the process number) is used as an index 
into p.break and. p.dska. The word count in the p.break 
table is put in the 3rd word of the swp I/O queve entry. 
The disk address in the p.dska table is put in the second 
word. The first word of the swp 1/9 queue entry is set up 
to read. (bit 10 set to a1) and ppoke is called to read 
the process into core. 


CALLING SEQUENCE = 


jsr rO, rawap 


ARGUMENTS — 


INPUTS — 


ri = contains process number of process to be read in 

pebreak — table containing the negitive of the word count 
for the process 

pedska - table containing the disk address of the process 

u.emt — detezmines handling of emt’s 

ueilgins — determines handling of illegal instructions 


OUTPUTS - 


10 = (ilgins) 

30 = (u.emt) 

swp - bit 10 is set to indicate a read (bit 1520 when reading 
is done) 

swp+2 — disk block address 

swpt+4 ~- negitive word count 
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UNIX IMPLEMENTATION 


ID U3=—-% swap 


FUNCTION = 
swap is the routine that controls the swapping of processes 
in and out of core. It works in the following manner: 


1) The processor priority is set to 6. 


2) The rung table is searched for the highest priority pro- 
cess. If none are found, idle is called to wait for an 
interrupt to put something on the queue. Upon returning 
after an interrupt, the queues are searched again. 


3) The highest priority process number is put in rf. If it 
is the only process on that queue the queue entry is zeroed. 
“If there are more processes on this queue the next one in 
line is put in the queue from p.link (see F, page 9). 


4) The processor priority is set to 0. 


5) If the new process is the same as the process presently 
in core, nothing happens. If it isn’t, the process present- 
ly in core is written out onto its corresponding disk block 
and the new process is read in. wewap writes out the old 
process. yswap reads in the new one. For more informa- 
tion see wswap , rewap , unpack and p17 of Implementa- 
tion Manual. 


6) The new processes stack pointer is restored. The ad- 
dress where this procesg left gff before it was swapped out, 
is put in r0. Sowhen rts rO is executed this new process 
will continue where it left off. 


- ARGUMENTS = 


INPUTS = 
rung table — contains processes to be run. See F, page 9. 
pelink = contains next process in lone to be run. See F, page 9. 
ueuno — process number of process in core. 
s.stack = swap stack used as an internal stack for swapping. 


OUTPUTS - 
present process to its disk block 
new process into core 
Uequant = 30. (Time quantum for a process) 
u.epri = points to highest priority run Q 
r2 = points to the run queue 
ri — contains new process number 
ps —~ processor status = 0 
rO = points to place in routine or process that called swap 
all user parameters 
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UNIX IMPLEMENTATION 


ID U3—-1 tswap 


FUNCTION = . sg m 
tewap is the time out swap. tswap is called when a user 
times out. The user is put on the low priority queue. This 
is done by making a link from the last user on the low 
priority queve to him via a call to  putlu. Then he is 
swapped out. 


CALLING SEQUENCE - 
jsx rO, tswap 


ARGUMENTS - 

INPUTS - 
ueuno - users process number 
runq+4 = lowest priority queue 


OUTPUTS = 
rO — users process number 
r2 — lowest priority queue address 
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UNIX IMPLEMENTATION 


ID U3-2 unpack 


FUNCTION - 

unpack” unpacks the users stack after swapping and puts the 
stack in its normal place. Immediately after a process is 
swapped in its stack is next to the program break. “unpack” 
move the stack to the end of core. 

If u.break is less than “core” or greater than u.eusp nothing 
happens. If u.break is in between these locations, the 
stack is moved from next to u.break to its normal location 
at the end of core. 


CALLING SEQUENCE - 
jer r0O, unpack 


ARGUMENTS <= 


INPUTS — 
uebreak — users break point (end cf users program) 


OUTPUTS - 
stack gets moved if proper conditions stated above are met. 
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UNIX IMPLEMENTATION 


ID U3-1 wswap 


FUNCTION - , 

wewap writes out the process that is in core onto its 
appropriate disk area. The process stack area is copied 
down to the top of the program area to speed, up I/O. The 
word count is calculated and put in, "swpt4 s The disk ad~ 
dress (block number) is~put in ewpt+2” ° éup” 4s set up to 
write by setting bit 9 and *ppoke” is called to initiate the 
writing. The area from user to the, end of the stack is 
written out. The I/O queue entry “swp is shown below just 
before the process is written out by ppoke. 


ee OP 8 8 ae DO ee eo 


lp A A OAS EE SY os QED 


When the writing is 


writing from) 


ce | OD ED a Oe Gee Om 0b oe eat we ee > a Oe en ae ee 


bit 9 among others is set | swp done, bit 15 is 
ew eee noe | cleared. 
| disk block address | swp+2 
! neg. word count { ewp+4 
constant | user (address to start | swp+é6 
|- i 


ARGUMENTS = 


INPUTS — 
u.break — points to end of program 
u.eusp — stack pointer at moment of swap 
core —- beginning of process program 
ecore = end of core 
user - start of user parameter area 
u.uno - user process number 
pedska — holds block number of process 


OUTPUTS — 
swp I/O queue (see above) 
Ppebreak = negitive word count of process 
r1 = processes disk address 
r2 —- negitive word count 
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UNIX IMPLEMENTATION 


ID U4=-1 clock 
FUNCTION = | ty cit 
clock handles the interrupt for the 60 cycle clock. It 
incremente the time of day, increments the appropriate time 
category and decrements the users time quantum. It then 
searches through the toutt table and does the following: 


1) I£ the processor priority is high (>4) and the time in 
the toutt entry is not zero (40), the time in the entry is 
decremented. If it turne O when decremented it is incre- 
mented so that it will turn O next time when the priority 
might be low (see 2 below). 


2) If the processor priority is low and (1) the user is not 
timed out or (2) we are presently inside the system and a 
toutt entry gets decremented to 0, the corresponding routine 
in the touts table is called. If the toutt entry was 0 
before decrementing nothing happens. If the user is timed 
out and we are outside the system the users rO is restored 
to him and sysrele is called to swap him out and bring in 
another procegs. 


CALLING SEQUENCE — 
interrupt vector 


ARGUMENTS = 


- ENPUTS - ‘ 

lke ~ clock status register 

Setinet2 = ting of day 

Clockp - pointe to one of the clock cells in the super block 
Ueyuest » Usexa Lame quantum 

gyatlq « eystes Thag = { is sutsice systes, O ig anside 
‘tout « table of bytes. Nach byte is a tine count 

touts «- table sf entry points of subroutiacs 


OUTPOTS 
S,iinet2 « Lrosocanted 
Cclockp = incremented 
uequent - decra rented 
Cwact - entries decrementec 
ro - contains users xO if cenditions of (2) above are met 
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UNIX IMPLEMENTATION 


ID U4-3 ppti ~- paper tape input interrupt routine 


FUNCTION - Z . 
ppti does one of following dependent on value of pptiflg 


1. If “pptiflg” indicates file not open (#0), nothing is 
done » 


2. If “pptiflg” indicates file just opened (=2), a check is 
made to determine if the error bit in prs is set. If it is 
pptito is called to place I/O in the toutt entry for ppt 
input. If the error bit is not set, “pptiflg” is changed to 
indicate "normal operation” (set to 4) and “wakeup is 
called to wakeup process identified in wlist for ppt input. 
Also, the character in the prb buffer is placed in clist if 
there is room. If there is no room, the character is lost. 
Finally a check is made to determine if the character count 
in the ppt tnput area of clist has less than 50 characters. 
If it does, the reader enable bit is set. 


3. If “pptiflg” indicates file normal (24) the, procegs in 
the ppt input entry of wlist 4s woken up (via “wakeup ). A 
check is then made to determine 1f the error bit in pre is 
set. IZ ait is, the “pptiflg™ is set equal to 6. If it is 
not the contents of prb are placed in the clist via “putes 
If clist is full, the character is lest. In addition if the 


character count for ppt input in the clist is less than 50, 
- the reader enable bit is set. 


4. If “pptiflg” indicates the file is not closed (26), this 
is en indteatien that the error bit was eat when pptiflg 
equalled four and therefore nothing ta done. 


CALLING SEOD st a 
ppoti a ‘the paper tape input interrupt routine 


INPUTS = 
pptifl¢ - flag which indicates function tube performed 
prs ~ oooer tape read etatus bits 
ce+2 = character count fox ppt inpuc in clist 
prb ~ inout character 


OUTPUTS - 
pptiflg = (see above) 
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UNIX IMPLEMENTATION 


ID U4-—4 isintr 


FUNCTION = _ 
isintr checks to see if an interrupt or quit from a_ tty 
belongs to the current user. If so, it won’t skip on 
return; if not it will skip. When the interrupt does belong 
the output list in clist is erased via calls to getc. This 
prevents output coming out after the interrupt key is hit. 
Nothing happens except the return is skipped when: 


' Case I 

4) wu.tty, the tty buffer pointer » 0 

2) interrupt character in buffer = 0 

3) interrupt char = delete and u.intr = 0 
4) char = fs and u.quit = 0 

5) no tty block is found that matches u.tty 


Case ITI 
The return is not skipped and, the output gets flushed if: 
41) interrupt character = fs u.quit 40 and the tty block in 
control is found a é 
2) 4ainterrupt character = delete and u.intr 40 and the tty 
block in control is found. 


CALLING SEQUENCE = 
jer rO, isintr 


INPUTS = 

uettyp - pointer to buffer of tty in control of the current process 
ueintr = determines handiing of interrupts if © = nothing havrens 
Uequit — Getermines handiing ef foterrupes if OG » nothing havens 
tty+6 - pointer to buffer of first tty bisck 


OUTPUTS - 
Case I - nothing except return is skipped 
Case If =~ processor priority = 5 
gets — erases tie output character list 
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UNIX IMPLEMENTATION 


ID U4-4 pptito - paper tape input BOUL? EUREOUr Ane 


FONCTION | - 
If “pptiflg™ indicates the file has just been opened (2), 
“pptito— $ 


4- places 10 in the toutt entry for ppt input 


2e checks error bit in prs and sets reader enable bit if 
error bit not set. 


For all other values “pptiflg” pptito does nothing. 


CALLING SEQUENCE = 
jsx rO, pptito 


INPUTS — 
pptiflg - values of this parameter indicates to pptito the 
function it is to perform 
prs ~ status of ppt reader 


OUTPUTS ~ 


toutt+1 ~ contains tic count (= 10) for ppt input 
prs - read enable bit 
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UNIX IMPLEMENTATION 


ID U4-3 ppto = paper tape output interrupt routine 


FUNCTION — ca 
Calls starppt to output next character in clist ppt output. 


CALLING SEQUENCE ~ 
interrupt routine 


INPUTS — ss a 
see inputs for starppt 


OUTPUTS — 7 = 
see outputs for starppt 
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UNIX IMPLEMENTATION 


ID U4-5 sleep 


FUNCTION — 
sleep puts the process whose process number is in u.uno on 
the wait list (wlist) and swaps it out of core. It works in 
the following way: 


1) A wait channel number is given as an argument to sleep. 
The process number occupying that charinel is saved on the 
stack. The process number that is getting put to sleep 
(u.euno) is put in that wait channel. 


2) A call is made to “isintr’ to see if that user hag any 
interrupts or quits. If he does a return to him via "“sys— 
ret. is made. If he doesn’t swap is called to swap out the 
process so it can sleep. 


3) A check is made on the new user (the cne who got swapped 
in) to see if he has any interrupts or quits. If not, a 
link is created to the old process number that first occu- 
pied the wait channel by a call to “putiu” a normal return 
is then made. 


CALLING SEQUENCE -- 
jsx rO, sleeps arg 


ARGUMENTS - 
aeo = GSit clcascl aunkce 
INPUTS = 
Uses © Process number that gets put to sleep 
welist »~ wait whannel Ifet 
rungtt ~ Lewoo: priority run 


OUTPUTS - 
Bleeping process number cato wliiet 
Bes gass ProOvGis ante disk 


Issue D Date 3/17/72 ID IMO.1—1 Section H.4 Page 6 


UNIX IMPLEMENTATION 


ID U4-2 ttyi 


FUNCTION —_ , 
ttyi puts a character from the tty reader buffer in ri 
seta the enable bit of the tty status register, and strips 
the character to 7 bits. Depending on what the character is 
the following things may occur: 


42 If the character is a letter (A-Z), It is changed to 
lower case and put on the clist yia put¢ . It is then put 
on the tty output buffer via startty . If the number of 
characters on that clist (cc) exceeds 15 a call to wakeup 
is made to clear that list. If less than 15 nothing else 


happens. 


2) If the character is a “}" or a “del”. If also, the last 
tty blocks buffer pointer is zero wakeall is called and all 
processes are put on the low priority queue, 


If the last tty blocks buffer pointer to the char (Jor del) 
is put in the 7th byte of the buffer and wakeall is called. 


3) %If the char is an “eot” or “nl” 
cc is not checked and wakeup is called. 


CALLING SEQUENCE ~ 


tkb = tty reader butter 
tks = tty reader status register 
ec — number cf cheracters on tne character lfet 


OUTPUTS = 
ri is used to contain the character 
ttyoch ~ has the character 
see function for other eutputs depending on what the character is. 
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UNIX IMPLEMENTATION 


ID U4-3  ttyo 


FUNCTION = 


“ttyo” is the console typewriter output interrupt routine. 
It calls setisp to save registers during the interrupt then 
calls startty to put the character in the tty output buffer 
and then restores the registers and returns from the inter- 
rupt. 


CALLING SEQUENCE — 
interrupt routine called via trap 


ARGUMENTS = 


INPUTS = 
character in ttyoch 


OUTPUTS — 
see startty 
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UNIX IMPLEMENTATION 


ID U4—2 wakeall 


FUNCTION = |. | . 
wakeall” wakes up all the processes on the wait list by 
making consecutive calls to wakeup going through all the 
wait channels. The processes are linked to gether on the 
lowest priority queue (rung+4) used to notify the world when 

a quit or interrupt happens from a typewriter. 


CALLING SEQUENCE — 
jsr r0, waxeall 


ARGUMENTS = 
INPUTS - 


OUTPUTS —- 
all sleeping proceases are put on the lowest priority queue. 
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ID U4—5 wakeup 


FUNCTION - 

wakeup is calied with two arguments: arg! is one of the. run 
queues and arg2 is a wait channel number. wakeup wakes the 
process sleeping in the specified wait channel by creating a 
link to it from the last user process on the, run ,queve 
specified by argie This is done bya call to putlu. If 
there is no process to wake up, (wait channel contains a 0) 
nothing happens. 


CALLING SEQUENCE = 
jsxr xO, wakeup; argt; arg2 


ARGUMENTS = 
argi ~ points to one of the three run queues 
arg2 ~ is the number of the wait channel of the process to 
be awakened. 


INPUTS ~ 
wlist — wait channel 
uepri — users process priority 


OUTPUTS — 
if uepri > argi uquant = 0 
wlist (r3} = 6 = entry in wait channel = 0 
r2— is used to point to ore of the run queues 
rs = containg the number of the wait channel 
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UNIX IMPLEMENTATION 


ID U4-5 starppt 


FUNCTION = 
"starppt™ checks the character count for ppt outpyt in the 
Clist. If it is greater than 10, “gtarppt uses wakeup” to 
wakeup process identified in “wlist’ entry for ppt output. 
"starppt then checks the ready bit in the punch status 
word. If it is set, “etarppt uses getc to fetch the next 
character in the clist and then places it in prb. 


CALLING SEQUENCE = 
jsx rO, starppt 


INPUTS = 
cc+3 = character count for ppt output in clist 
pps — contains ready bit 


OUTPUTS ~ 


See outputs for “getc” and “wakeup” 
ppb - ppt output buffer 
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ID U4-3 retisp 
FUNCTION — . . oe 
retisp pops the stack and restores the values of r0, ri, 
x2, x3 and clockp to what they were before the interrupt 
occured. retisp then executes an rti and returns. 


CALLING SEQUENCE - 
jmp retisp 


ARGUMENTS — 
INPUTS = 


OUTPUTS —_ 
rO, rt, x2, £3, Clockp 


CALLED BY ~ 
trapt 


CALLS = 


Iseue D Date 3/17/72 ID IMO.14-1 Section H.4 Page 12 


UNIX IMPLEMENTATION 


ID U4=-1 setisp 

FUNCTION —- . 
setisp stores ri, r2, r3 and clockp on the stack. Puts 
Ss.ervett2 in clockp and returns via a jump without popping 
the stack. 


CALLING SEQUENCE — 
jsxc rO, setisp 


ARGUMENTS - 
INPUTS — 
OUTPUTS <- 


CALLED BY = 
arum 


CALLS 
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ID U4-4 startty 
FUNCTION = . 
startty prepares the system to output a character on the 
console tty. It performs the following operations: 
1 = some fooling with wakeup? 


2 — tests console output status register read bit, if bit 
is clear; return. 


3 -if bit is set. check time out byte for console 
(toutt), if non zero; return. 


4- if toutt ie zero, put char to be output in rt. 
5 - load character in console data buffer register. 
6 = if char = lf, make next char to be output a cr. 
7 ~ if char = ht or cr, set time out to 15 clock cycles. 


CALLING SEQUENCE = 
jsx rO, startty 


ARGUMENTS = 


JNPITS 
ttyoch (character to be output), toute 


OUTPUTS ~ 
tpb (loads a character in tty output data buffer register), 
ri (character output), tovrt, 


Issue D Date 3/17/72 ID IMO.1=1 Section H.4 Page 14 


UNIX IMPLEMENTATION 


ID U5-3 access 


FUNCTION = -s 2 
+ yeads in section of core beginning at location inode the 
i-ncde for file with i-number n. Cheeks whether user is 
owner and whether user can open file for reading or writing 
based on file protection bits in “i.flgs (see Section G). 


CALLING SEQUENCE = 
jsr rO, access; arg. 


ARGUMENTS — 
argO (user, owner flagmask) 


INPUTS - 
ri (ienumber of file), u.uid, i-vid 


OUTPUTS ~ 
inode, r2 (internal) 
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ID U5=2 alloc 


FUNCTION — | 
alloc scans the free storage map of the super block of a 
specified device. When it finds a free block it saves the 
physical block number in z1, it then sets the corresponding 
bit in the free storage map and sets the super block modi- 
fied byte (smod, mmod). : 


CALLING SEQUENCE = 
jer rO, alloc 


ARGUMENTS — 


INPUTS — 
edev (current device), r2, r3 


OUTPUTS = 
r1 (physical block number of block assigned), smod, mmod, 
systm (drum super block), mount (dismountable super block), 
r2 (internal), r3 (internal). 
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ID U5—2 free 


FUNCTION — 

Given a block number for a block structured 1/0 device, 
*free’ calculates the byte address and bit position of its 
associated bit in the free storage map of the in-core image 
of the superblock for the device (rf fixed head disk or 
mountable device super block). It then declares the speci- 
fied block free by setting this bit. Then a flag is set to 
indicate that: 


1) the super block for the rf-fixed head disk has been 
modified (smod = smod+1). 

or 
2): the super block for a mountable device has been modi- 
fied (mmod = mmod+1). 


CALLING SEQUENCE — 
jer r0O, free 


ARGUMENTS — 


INPUTS — 
byte mask table: 


| | 
Mask for bit 1 | 2} 1| Mask for bit 
; 5 | 4} Soi ee 
= ee | 200] x00) 


ri -~ block number for a block structured device 
edev =~ current devices Gedrum, nongerosmcuntable device 


OUTPUTS < 
mount <- systm+(r2) word in free atorage map portion of the 
in core image of thse supe: bieck tor & mountable device. If 


the device is mountable the appropriate bit is set to free 
the block. If the device is net mountable, the bit remains 
unchanged. 


systm+2+(r2) same as above, but for drum with the super 
block for the fixed head disk. 

mod = is incremented if the superbiock for the mountable 
device was modified. 


smod - is incremented if the superblock for the drum was 
modified. 


r2 = saved on stack and restored on return 
r3 - saved on stack and restored on return 


Issue D Pate 3/17/72 ID IMO.1—1 Section H.5 page 3 


UNIX IMPLEMENTATION 


ID U5~4 icalc 


FUNCTION = 


icale calevlates the physical block number from the i-number 
of an i-node. It then reads in-that block and calculates 
the byte offset in the block for the i-node with the partic- 
ular i-number, then depending on whether the argument in the 
icalc call is a 0 or a1 it reads the, inode in the data 
buffer in core starting at location “inode (argument <0). 
Or it will take the inode information currently stored at 
7 iain inode” and write it out on the device (argument « 
4). 


The physical block number and byte offset for an inode is 
calculated as follows: 


let n = isnumber, pbn = physical block number, bo = byte 
offset 

then pbn = (n+31)/16 

and bo = 32.*% ((n+31.) mod 16.) (See Section F for gen- 
eral discussion of inodes.) 


CALLING SEQUENCE = 


ARG 


jer xO, icalc; arg 


UMENTS = 


ara em ard -~ O rasd inode 
ary = 1 write inode 


VE UTS = 


Fe Aenea cae tal 
wo a a 


inode - rf (i-number) 


xe 


inode «» rf (internal), x5 (internal), r3 (internal) 


id 
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‘ID US-4 iget 


FUNCTION —_ 

iget gets a new i-node whose i-number is in ri and whose 
device is in cdev. If the new i-number and its device are 
the same as the current i-number and its device (risii and 
cdevzidev) no action is taken. If they do not agree, iget- 
Checks to see if the current i-node has been changed (imod 
#1). If it has been changed the current i-node is written 
out to its device. Then if the current device is the drum, 
the new i-node i-number is checked to see if it is the i- 
number of the cross device file, if it is the current device 
becomes the mounted device and the i-number is set to 41. 
(thus the root directory for the mounted deyice ig refer- 
enced). Then the new inode is read into the inode block. 
in core via icale . 


CALLING SEQUENCE = 
jsx rO, iget 


ARGUMENTS = 


INPUTS = 

ii (current i-number), rootdir 
cdevy (new ienode device 

idev (current i-node device) 

Ama (CULES Genoese modified flag} 
mnti (cross device file i~number) 
ri (i-number of new i-node} 

mntd (mountable device nurier} 


OUTPUTS = . 
edev, idev, imod, ii, ri 
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ID U5=-3 imap 


FUNCTION =, 
imap finds the byte in core containing the allocation bit 
for an i-node whose number is in rie This core area is @ 
copy of the super block and happens to be the i-node map. 
The byte address is calculated as follows: 


byte addr = addr of start of map + (i-number-41)/8 
The bit position = (i~number~41) mod 8 


CALLING SEQUENCE — 
jer xO, imap 


ARGUMENTS = 


INPUTS - : 
r1 - contains i-number of i-node in question 

OUTPUTS = 
r2 — has byte address of byte with the allocation bit 
mq - has a mask to locate the bit position. 


a iis in the calculated bit position 
r3 ~- used internally 
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ID US-5 itrunc 


FUNCTION = , 

 “Strunc trungates a file whose i-—number is given in r1 to 
zero length. 4trunc™ gets an inode via iget. It incre—- 
ments through the i.dskp (list of contents or indirect 
blocks in the inode) table and frees the blocks specified 
there. If the file is small, the block numbers in the 
i.dskp list are freed. If the file is large, i.dskp con- 
tains pointers to indirect blockse The block numbers in 
these indirect blocks’ are then freed and the indirect blocks 
are freed. 


CALLING SEQUENCE -~ 
jsr rO, itrune 


ARGUMENTS — 


INPUTS ~ 
ri - contains i-number for use by "iget” 
i.dskp — pointer to "contents or indirect blocks” in an inode 
i.eflgs ~ contains flag for nee file. See Section F, page 5 
i.size - size or file 


OUTPUTS = 
i.flags - “large file” flag is cleared 
2 S232 —-sst. :t5. 5 
i.dskp - idskp+i6 ~ the entire list is cleared 
setimod — set tc indteate il~enode has been modified 
ri ~ contains denunker om return from thie seubr. 
r3 - used in subroutine 
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ID US—1 mget 


FUNCTION —, 
mget” takes the byte number of a byte to be read/written in 
a file and obtains the phyaical. block number of the block in 
which it occurs. The file offset for the byte (1.6. the 
byte number) is passed by passing a pointer to the offset in 
wuefofp. The block number for the byte is returned in r1. 


Aicng the way several things can happen: 


4- The file is email (less than 8 * 256. words) and the 
byte number extends beyond the current size of the file but 
does not exceed 8 # 512. In this case mget assigns a new 
block from the free area of the file device and updates the 
ijenode for the fille by adding the physical block number of 
the new block and modifying the free storage mape 


Ze The file is small and the byte number exceeds 8 * 512, 
In the case the atatus of the file changes from srall to 
laroe. mget sets the large file bit in i.flgs of the i~ 
nede, Next an indirect block is assigned to the file. The 
bleck pointers ina fenode are moved into the mew indirect 
block and a pointer to the indirect block is put in the 
inode. Next a new datz biock is assigned via the Sarge file 
handling logic, desexibed below. 


30 re Eile is lnacge and the byte number exceeds the 
eurgredcc lige ov Br 

ef he hacdhees 
blecic and adds a new entey to ti 


myet metagns a new fLle 
aireci: block, 


file is larce 


_ ye ca Bayo a ta ey 
gite oF frie Chie, 


be byte nmanber axyceeads thea 
lee omegddy che diysat af tine 
w andirecs block is aeeionead 

weodoher tie bi spe: dn trem temodes 
ageiened and a pointar to Ic stored 


Oe <4 wp an the UNIS Programmer's Manu- 
at. 


CALLING SEQUENCE = 
jar rO, mget 


ARGUMENTS ~ 


INPUTS — 
uefofp (file offset pointer), incde, u.off (file offzet) 
OUFPUTS = 
ri (pnyvsical bieck number), r2 (internei), 23 (interns1), r5 
(intcens)) 
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ID U5-3 setimod 

FUNCTION = a = 
sets byte at location imod toa i, thus indicating that 
the i=-node has been modified. Also puts the time of modifi- 
cation into the i-node. 


CALLING SEQUENCE = 
jsx r0, setimod 


ARGUMENTS — 


INPUTS — 
Setime, s.timet+2 (current time) 


OUTPUTS = 
imod, iemtim, ismtimt+2 
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ID UG-4 cpass 


FUNCTION — | 
cpass gets the next character from the user into, ri. A 
non-local return takes place (to the caller of "writei™) 
when the users count (u.count) becomes zero. 


CALLING SEQUENCE = 
jer xO, cpass 


ARGUMENTS = 


INPUTS — 
uecount - users character count 
uebase — points to a users character buffer 


OUTPUTS — 
4f u.count #¢ 0 
uecount gets decremented 
ri contains the next character 
uenread gets incremented 
uebase — gets incremented to point to next character 
if u.count = 0 
rO ~ return address to program that cailed “write” 
rt - ienumber of file under consideration 
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ID U6=1 readi 


FUNCTION — 
readi~ reads from an i-node whose number is in ri. If the 
file in i-node is special a transfer is made to the ap=- 
propriate routine. If not, "askr is called and the file is 
read into user core. See “dskr. for details. 


CALLING SEQUENCE = 
jex rO, readi 


ARGUMENTS ~ 


INPUTS = 
uecount — byte count user desires 
uebase — points to user buffer. 
uefoft -— points to word with current file offset 


OUTPUTS = 


uenread ~ accumulates total bytes passed back 
see “dskr” 
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ID U6~2 dskr 


FUNCTION =, : é = 
dskr gets an inode into core via iget . It then sets 
uecount according to the following rules. If the number of 
bytes left to read in a file is greater than the number of 
bytes he wants to read u.count is unchanged. If the number 
of bytes left to read in the file is less than u.court, 
u.count gets set to that number. ‘ 


If the user offset u.fofp is greater than the file length 
there is nothing left to read so dskr returnse Once u.count 
4s established a block address for the file is calculated 
via mget, the file is read into system buffers and the data 
is transferred to user buffers in core. If u.count is not 0 
the process is repeated until u.count is 0. Processor 
status is then cleared. 


CALLING SEQUENCE — 


jmp dskr 
ARGUMENTS — 
INPUTS — 


x1 — contains i-number 
iesize - file size in bytes 
u,ccount — byte count desired 
- wefofp - offset in file telling hew many bvtes have heen read 


OUTPUTS =— 
data in user huffers in core 
r2 ~ internal register 
pe - 


r3 — internal register 
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ID 06-4 dskw 


FUNCTION —_ ) 
dskw writes user specified data into a file on the drum, 
as follows: 


“dskw” obtains an i-node number from the stack. If the 
d-node currently residing in the i-node area of core has 
been modified, this i—node is written out onto the drum in 
its appropriate position in the i-list. In any event, the 
i=node specified in the stack by the caller is read into the 
denode area of core. A file is composed of blocks. The 
caller can modify several blocks in several passes thru a 
single call to “dskw’. The number of the block to be modi- 
fied next is calculated by ‘dskw’ from the file offset 
(relative to the start of the file in bytes) specified by 
the caller in (u.fofp). ‘The caller specifies the number of 
bytes to be modified in u.count. If the number of bytes the 
user specifies plus the offset into the file is greater than 
the present size of the file in bytes, i.size, then the size 
of the file is increased to incorporate the data overflow by 
changing the file size field in the i-node for the file 
(which is currently in the i-node area of core). The time 
that this file size change occurs is also inserted into the 
i-node and the inode modification flag (imed) is set. 
*askw’ then uses (uefofp) to calculate an offset (relative 
to the start of the block) which specifies the 4st location 

- within tha block at which the enllers data is to be writtone 
Rote that the offset determines the maximum number of bytes 
of user data that can be written on the file during this 
pees thew ‘dskw’, 542.-file offset. If the number of data 
bytes che caller specifies is less than a block, the block 
is reid €roem drum into 2 system buffer, then the epprepriate 
bytes <¢s6 Ovecwritten. if the surnser cf data bytes is ise 
than 2 ¢ but excesds $12.—file offisec, only 5t2.~hle 
effeet ies are cvemwritten. Succeeding passes thru “dskw’ 
are neceanacy to erihe ont the rast of the dabe. After sach 
pass, the wedi¢ied #Lle block (in the system buffer) is 
written oot on @cunm. When all required blocks sre writhena, 
counters and pointers are returned to the caller. 


CALLING SECUENCE - 
jex rt, daw 


ARGUMENTS = 
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INPUTS = 
sp — i-node number 
(u.fofp) - file offset 
uecount — number of bytes of data the caller desires to write 
i.ssize - size (in bytes) of file to be altered (this parameter 

appears in the i-node whose number is jn sp). . , a 

gee inputs for iget , setimod mget , dskrd , wslot , sioreg 
rt —- pointer to callers data area 
(ri), (ri), t1,ee0, (21) + (uecount-1') - the callers data 


OUTPUTS — 

iesize — file size (may have been modified by (dskw) ey ” 

see outputs for iget , setimod , mget adskrd , wslot , sioreg 

ri - points to the location succeeding the last caller data byte 
transferred . 

r2 = points to the location (in the system buffer) succeeding the 
last system buffer byte overwritten. 

r3_ - O 

uecount = 0 

modofied drum file 
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ID U6-2 passe 


FUNCTION — | 

passc moves a byte of information specified in the lower 
half of x1 to the byte address specified by (uebase). It 
then increments u.base to point to the next byte address, 
increments unread, the number of bytes passed, and decre- 
ments u.count the number of bytes yet to be moved. If there 
are ho more bytes to be moved, a non-localvreturn to the 
caller of readi (through which control was .eventually 
passed to passc) is taken. The current i-number if popped 
off the stack into rit. If there are more bytes to be 
transferred, the processor status is cleared and control is 
returned to the caller. 


CALLING SEQUENCE = 
jer rO, passc 


ARGUMENTS = 


INPUTS ~ . 

r1 - contains a data byte in the lower half 

uebase — contains a pointer to the user area of core to which 
the data byte is to be transferred. 

uenread = the number of bytes transferred 

uecount = the number of bytes to bevread 

(sp) = tne non-iecal return address ” . 

(sp+2) — the value of r1 prior to calling passe 


OUTPUTS - 
(u,bese) — O,ece, (uebase)-[u.count-1] contain the transferred 
tivormation ; 

Uspase «- points to the lazt byte transferred 

ueliread - contains the number of bytes transferred and original 
value of unread 

werount = conmtaings the muvbvex of byter thak still mast be read 

(ep) — if non-local return popped twice 

ps = cleared 
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ID U6-2 rerd 


FUNCTION = See “error” routine 


CALLING SEQUENCE =- 


ARGUMENTS <= 


INPUTS —_ 


OUTPUTS — 
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ID U6~2 ret 


FUNCTION = 
ret is a special subroutinevreturn, used by the following 
subroutines: 
1e reti 
2e rppt 
36 daskr 
4. passe 
Se dskw 
6. bread 
7. bwrite 
Be revt 


in place of the standard return. In addition to performing | 
standard return functions, “ret” pops the stack and puts its 
vblue in rt. It also clears the program status word. “ret” 

can be used simply to clear the program status word by 
entering via its Znd entry point. 


CALLING SEQUENCE - 
control should be passed to this-routine by either a condi- 
tional or non conditional transfer to “ret (the ist entry 


oat 


point), or to °i°, the secondary entry point. 
ARGUMENTS = 
INPUTS = | . 
A. tor primary entry : (sp) 
B, fer secondary entry 3? == 
OUTE "Ors =. 


nh, for primary entry : ri,ps 
B. fer secondary entry : 
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ID U6-2 rppt - read paper tape | 


FUNCTION —,, 

rppt” uses “pptic™ to get a character in ppt input section 
of clist and to set reader enable bit in prs. Tf the ppt 
input section is empty and pptiflg = 6 (indication that the 
error bit was set during “normal operation” ) return is made 
to “rppt” to instruction “pr ret which eventually causes a 
return to the caller of "readi . wf a character is avail- 
able in clist, return is made to “rppt” at "jsr r0, passc e 


‘Upon return from “optic” ’ “rppt” uses “passe to place the 
character fetched by pptic into the users buffer area. If 
the number of characters that were specified by the user to 
be read in has been read in, return from passe is made to 
_ the caller of readi. 


It is appropriate at this point to describe how all the ppt 
input routines and subroutines are tied together to -read 
ppt. First of all the ppt file must be open. To do this a 

sysopen” for reading which sets the “pptiflg indicating— 
file open. It also sets the reader interrupt enable bit in 
the prs and empties the ppt input portion of tlist. 


Once the file is open, @ "sysread” of the ppt file is made. 
A pointer to the location where the characters are to be 


> =e red 
placed along with thg number cf gharacteys to bevreag arg 


passed as arguments | to sysread” sysread then uses rwt 


to got e "u.count” equal - the mimber of characters to be 
read and usbase. to the lccation where the characters are 
to be placed. readi is then ealled which jumps to rppt- 
which if described above. It should be neted, that when 
“ppeis a& C4tiled to obtain a caarecner from eclist , the 


precess will be put te gleep if no chnracters ara in eclist 
swith eeu .3} ané all characters to ne ead in have not 
pea Peas hioo She reader anable bit is se tah geomole-= 
tion or ‘the input of the next character (sence pit set) the 
pet iseck interrupt routine (opti) ie started which uses 
wakevp to wake up the process previously pos to sleep. 


CALLING SECCIENCE = 
jmp rops 


INPUTS — 2 
see inputs for | "pptic” 9 “passe 


OUTPUTS — 
see outputs “pptic” and “passe” 
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ID U6—1 rtty 
FUNCTION = a nm 
essentially, rtty transfers characters from. the console 
tty buffer into a user area of core, starting at byte ad- 
dress (u.base), If there are,no chgracters in the console 
tty buffer, ortty calls ‘canon’, which gets a line (120 
characters) from the console tty clist and puts it in the 
console tty buffer. The caller specifies the number of 
characters to be transferred in u.count. If the number 
specified is greater than the number actually in the console 
tty buffer, a synthetic return is taken to the caller after 
the characters in the buffer have been transferred. If the 
number specified is less than or equal to the number actuai- 
ly in the console tty buffer, a non—localized return to the 
caller of “readi (which is the routine via which control 
was actually transferred to rtty ) is made when all the 
capes he have been transferred to the users core area {via 
passc ). 


CALLING SEQUENCE = 
[conditional or unconditional branch, or jmp] rtty 


ARGUMENTS — 


INPUTS + 
iiy + 7656 = Contains pointer to the header of tne console 
tty buffer. 
2(tty+70.) = Zgnd word of console tty buffer headers; contains 
acourt of characters in the bufllere 
4(tty+70.) = contains a pointer to the next character in the 
puffer. Podnter values ean incluta (tey+70.) + 
eke 


ee a aes erp $7 Lo. > 
; = Se «7 ged feoeerg \EC Eg Te; ‘ 
gee drooube for caren , base , Lreti 


OUTPUTS = “ 
ri, rS used internally by rtty , original values destroyed 
r5 — pollute to hvader of console thy buffer 
see outeuts for canon , passe , reti 
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ID U6—3 wppt = write paper tape 


FUNCTION ~ 
wppt uses, “cpasg” to get a character from the users buffer 
area and “pptoc” to output the character on the punch. 


It is appropriate at this point to describe how all the ppt 
output routines and subroutines are tied together to output 
data on the ppt punch, First the ppt file must be opens 
This is done viaa sysopen™ for writing. This places en- 
tries in the fsp table and the user’s fp area. 


Once the file is open a “syswrite” of the ppt file is made. 
A pointer to the location where the characters are stored 
along with the number of characters tg be, punched aye passeg 
as arguments to syswrite. Then uses rwi to set uecount 

equal to the number of characters to be punched and u.base 

equal to the location of the characters. “writei is then 
ealled which jumps to "wopt” ° 


"wopt” as mentioned above uses "cpass” to get a character 

from the user’ s buffer area. If the number of characters ag 

specified in ‘syswrite . Tf not “pptoc” is called. “sptoc” 

first checks to see 41£& character count for opt output in the 
"“clist’ is 250. If it is the process is put to wi teeD If 

it isn’ t the character is placed in the alist and 
“starrpt” is called. 


“starpot” uses "getc” to get a character from clist and 
inserts it gate the ppb if the ready bit is set. it it 
isn’ t, control is passed back to pptce - 


Upon coroletion of output of the character in pot (ready bit 
get" aren Serer tape utput intherrurt vroutine tas “to ) ig 
startet wim er interrupt. This rowktme cells storaot” 
whieh poerforue the following funetion on an interrupt in 
addition to those deserlbed in the previous varacrach. Ree 
checks to sew al the character count for pet cukput is less 
than 10. I£ it ie it wilh wake up the process in the wlist 
entry fer ppt output. , 


As secn from ubove a process puts itself to sleep when it 
has 250. characters in clist and is ‘awakened’ by the paper 
tape output interrupt routine (ppto) when the count becomes 
less than 10. 


CALLING SEQUENCE ~ 
jmp ppt 


(see inputs for cpass and pptoc } 


OUTPUTS — r . . ‘ 
(see outputs for cpass and pptoc ) 


Issue D Date 3/17/72 ID iKO.1—1 Section H.6 Page 11 


UNIX IMPLEMENTATION 


ID U6-5 sioreg 


FUNCTION — 
4 calculates the first byte location (in the I/O buffer 
assigned to the eAteent into which the callers data is to be 


written. 


2. . Calculates the number of user data bytes to be 
transferred into this I/O buffer. 


36 performs bookkeeping functions, supplying the caller 
with information pertinant to the data transfer. 


CALLING SEQUENCE — 
jer xO, sioreg 


ARGUMENTS, = 


INPUTS = 
(uefofp) -— specifies the byte in a file (erseise to the start 
of the file) at which the user wants to atart writing 
data. 
r§5 ~ address of data area of I/O buffer assigned to the user. 
usebase ~ address of 1st byte of user data. 
u.count - number of bytes of data to be transferred from user 
data area to I/O buffer. 
- enread — number of bytes of data written aut on the file far 
this user previously. 
OUTPUTS - ; 
(u.fofpj - speciiies the byte immediately following the last byte 
|e” Sha file area in which the ueceount: bytes of user 
@zta ie to be written. 
Yi-8- addeeanrs of ten Deke of us 
Mebase ~ cities che byte iz 
rE oceex dite ta be tranecferraed te the 
uecount. epee ice tne momber of bytes of ws 
te eee alter the precesding set 


ge data e 
seideheie following Te “ 


2 data Left to be 
is trancZerred. 


wuenread = wointer to ineluce the count of to be transferred bytese 
r2 — gpeciiies tne ae in the r/o | puree apsiened to tne caller 
at which the transfer of user’s data is to start. 


uooue Of lytes of user data fc be transferred to users 1/0 
bullere 


Issue D Date 3/17/72 ID IMO.1=1 Section H.6 Page 12 


UNIX IMPLEMENTATION 


ID U6-2 writei 


FUNCTION — 

writei” checks to see if there is any data to be written 
(on any device). If not, it does nothing more than: return 
to the routine which called it. If there is data to fbe 
written, “writei” saves the i-node number of the file to be 
written on the stack, so it can be used by the appropriate 
output routine. Then “writei” checks to see if the‘ output 
is to a special file (those files associated with i-nodes 
1,00e40., or toa non-special file. Writes for nonespecial 
files are routed to the dskw routine. Writes for special 
ifiles are. routed to appropriate routines, as follows: 


Special File Write Routine 
ASR-33 ¢ console tty wtty 
PC141 : paper tape punch wppt 
core wmem 
RF11/RS11 : fixed head disk (drum) wrf0 
RKO3/RK11 3 movable head disk wrkO 
TO11/TUS6 : dectape unit 1 wtap 
ee 2 Lad 
- « 3 
F w ww 4 Ld 
a ee : 
7 
(any std. tty) : tty unit 1 xmet 
* #é 2 « 
Lad SE « % 
* ee 5 we 
ae we 6 Ad 
7 


CALLING SEQUENCE ~ 
n srvr0, writel 


INPUTS - 
us.count ~- contains a count of the number of bytes tofbe written 
vri - contains the number of the ienode for the output file 


OUTPUTS — , s 2 

As to the calling routine if return is made to itfby writet 
uenread - is cleared 

B: to the write-vroutine for non-special files 
uenread — is cleared 
(sp) - contains the i=node number 

Cs to the write routine for special files 
uenread = cleared 
(sp) - contains the trneos novber 
ri - contains the index into the special filevroutine: jump table 
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ID U6—3 wtty 


FUNCTION aot 

“witty uses “cpass” to obtain the next character in the user 
buffer area. Tf the character count for console tty is 
greater than ‘or equal to 20, the process is put to sleep. 
If not, it then_uses put¢ to determine if there is an entry 
available in “freelist” portion of “clist” » If there is 

“pute” places the character there and assigns the location 
to the console tty portion of “clist’. wrt there is no place 
available in the _freelist” portion of clist’, the process 
is, put to “sleap” e If there was a vacant location, starte 
ty” is used to attempt to cutput the character on the tty. 
Upon return from “startty” » the next character is obtained 
from the user buffer. If the buffer js empty; control is 
passed via “cpass | back to syswrite . When the process is 
awakened by wakeup » it again tries to find a location 
available in "freelist’ and the character count for the con- 
sole tty less than 20 so it can output the character. 


CALLING SEQUENCE — 
jmp wtty 


ARGUMENTS = 


INPUTS = 
‘ eaget — contains character count for cengols ¢ty cufput. 


{see inputs for “epass , “pute, “startty , 5 et 


OUTPUTS 
rio- (character from user buffer) 
ps « wrecessor priority cet to & 
2) } ‘a od ey a vr te w "4 
.B8e Oltputs for cpass , pate , startty , sileer . 
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ID U7-¢ canon 


FUNCTION - 

canon handles the erase kill processing on the teletypewrit- 
ers. (console tty). r5 points to the start of the tty 
buffer. The argument following the call is where the char- 
acters are obtained. canon returns only when, (1) a full 
line has been gathered, (2) a new line has been received, 
(3) an eot (004) has been received, or (4) 120 characters 
(the length of the buffer) have been received. 


canon works in the following ways 


1) The address of the start of the characters is put in 
buffer + 4 (4(r5)). 


2) buffer + 2 (2(r5)) is cleared. This is the character 
count, 


3) a character is gotten off the queue. If it is a kill 
character ‘°@° a return to the beginning is made. Actually 
one starts over. 


4) If the character is an erase ‘#°, the next character 
will overwrite the previous one and thereby erase it. 


- §) If the character is an eot (004) the byte vcointer ia 
reset to the first character and & return fe made. 


6) If ehar {£8 none of the above, it is put in tne bot fer 
when the character pointer telis it to go ta(rs). 


=~ S “Mes ae ey ty ame he Aas te aft pei oe hae pe Ss RE GO Pre ea ee 
TS y gromackea: Coins LTS? ARG Sis ORS oe ar ne pa tes 


Me o. 


4(r5) are than ineremented, 


6) Te the char tea a tev line {\n) the char pointer is reeet 
ang &@ return bo mMeaes 


®) 2 the buffer ads full (byte count >» 146) the cher 
pointer is reaset and 2 return is made. 


10) If the buffer ‘fsa’t Eull, the next character of f the 
queove iz put through the above tests. 


Note: canon should only be called when the number of al~ 
ready treated characters is zero, iee., when the char count 
=» QO; 2 (r5) 2 O. If the char count is 4 6 the character 
pointer, 4 (r5) points to the first character not yet picked 
up. 


CALLING SEQUENCE - 
jer xO, canon, arq 


ARGUMENTS ~ 
arg ~ where characters are to pe obtained from 
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INPUTS — 
r5 =< points ‘to tty buffer address 
10(r5) - start of character buffer 
2(r5) - character count 
4(r5) = points to next character position in data area 


OUTPUTS — 
a full buffer, or a full line 
rt pointers to buffer + 10 
4(r5) — character pointer reset to start of data area buffer + 10 


| . { tty buffer 

| snuarer ef char in buffer +2 

hae pointer (buffer +10 to] +4 
start) { 

| aera ee neces ee rat ae enn meme eee a ne | +6 
| | 

2] 
t ' 
{ { 

| reece aren ae wr mee | moreno eon | +10 
| i | 
[ees | aoe 
character | | 
storage { { 
area | | 
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ID U7-1 cesc 


FUNCTION —, 
“cesc is called by canon to check for an erase "#" or kill 
“e” character. ri contains the character being tested. If 
the character is not an erase or kill the return is skipped. 
If the char tis an erase or kill the character count and 
character pointer are decremented. If the previous charac-— 
ter was a "\" the # or @ are taken literally and the return 
igs not skipped. 


CALLING SEQUENCE - 
jsxr rO, cesc; arg 


ARGUMENTS — 
arg 100 — @ means kill the line 
43 - # means erase last character 


INPUTS <- 
ri - character to be tested 
2(r5) = character count 
*4(r5) — previous character 


OUTPUTS < 
skip return if test char is not erase or kill 
if character was erase or Kill 
2(r5) - character count gets decremented 
4(r5) « character pointer gets decremented 
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ID U7~7 cppt — close paper tape file. 


FUNCTION —, 
cppt assigns all ppt input locations in eclist to freelist 


and sets “ppt, flg to indicate file closed (=0). 


‘CALLING SEQUENCE — 
jmp cppt 


INPUTS - 
OUTPUTS — _ . 
See outputs for getc . 


ps - processor priority set to 5 
pptiflg ~ set to O to indicate file closed 
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ID U7-6 ctty 


FUNCTION — | 
ctty closes the console tty. All it does is decrement the 


number of processes that have opened the console tty file. 
The first byte of the console tty buffer is the numbe: of 
processes that have opened this tty byte. See F, page 11. 


A return is made via sret.. 


CALLING SEQUENCE — 
jmp table in i-close 


ARGUMENTS — 
INPUTS — 


OUTPUTS -— 
r5 -— points to console tty’s buffer 


(r5) — first byte of buffer gets decremented. 
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ID U7-8 error a 

FUNCTION — See “error” routine 
CALLING SEQUENCE - " 
ARGUMENTS —- 
INPUTS = 


OUTPUTS - 
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-ID U7-3 get 


FUNCTION — i 
Removes the first clist entry from the list identified by 
r1, makes the second entry the first. Puts the clist offset 
of entry removed from list in r2 return to normal . 


If the list identified by ri is empty, x2 is returned equal 
to zero, and return made to empty . 


If the list has just one entry, the entry is removed and the 
first and last character pointers for the list are zeroed. 


CALLING SEQUENCE — 
Jsxr rO, get; empty: $ normal: 


ARGUMENTS — 


INPUTS - 


ri. (list identifier), cf+1(ri), cf+1(r1) (see Section G for 
_ general description of tty I/O handling) 


OUTPUTS — 


r2 (offset into clist of entry just: removed from list r1), 
cfti(ri), cl¢i(ri), clist (x2) 
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ID U7-2 getce 


FUNCTION —_ 
getc removes the first clist entry from a list identified 
by arg, via call to get; decrements character count for 
list; puts the clist entry removed onto the free, list; puts 
the character in the entry into ri and takes “normal” re~ 
turn. If list is empty take "empty" return. 


CALLING SEQUENCE - 
jer rO0, getcs; arg; empty: 3 normals 


“ARGUMENTS = 
arg - list identifier 


INPUTS —~ 
r2 (clist offset from put) 


OUTPUTS -— 
rt (character on top of list), eetuee clist (r2) 
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ID U7-8 getspl 
FUNCTION — 


“getspl” | gets a device number from a special file name. 

uenamep points to the name. namei is called to get the 
i-jnumber. d-number -~4 is the device number. If it is less 
than or equal to zero or it is greater than 9 an error oc- 
curs. If not the device number is returned in ri. 


-CALLING SEQUENCE — 
jer rO0, getspl 


ARGUMENTS — 


INPUTS - 

u.enamep — points to the name of the special file 
OUTPUTS ~ 

r1 - device number of the special file 
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ID 07-5 iclose 


FUNCTION = , 

iclose checks to see if the file, whose i-number is in rf, 
‘is special. If it is, a transfer is made to the appropriate 
routine. If it isn’t a return is made. 


CALLING SEQUENCE ~- 
jsr r0, iclose 


ARGUMENTS = 


INPUTS = . 
ri = contains i=number of file being closed 


OUTPUTS — 


If special file, r1 is put on the stack, i.e., the i-number 
is put on the stack. 
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ID U7-4 i1open 


FUNCTION = | ' 

fopen. opens the file whose i-number is in r1. If the file 
is to be opened for reading access is called and the i- 
number is checked to see if the file is special. If it is 
special, a jump table of transfer addresses takes care of 
transferring control to the correct special file routine. 
If non-special file a return is made. If the file is to be 
opened for writing, access is called and a check is made 
to see if the file is a directory. If it is, an error oc- 
curs, because users cannot write into directories. Special 
files are handled in the same manner as above. 


CALLING SEQUENCE = 
jsr r0, Lopen 


ARGUMENTS ~ 


INPUTS = 
ri — contains i~number of the file to be opened 


OUTPUTS — 
files i-node ie in core 
ri <- if i-number was negitive upon entry it is positive on 
exit 
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ID U7-5 oppt - open paper tape file for read or write 


FUNCTION = 
oppt performs the following functions: 


41. Sets the reader enable bit in prs. 
2. Assigns all ppt input locations in "elist” to freelist. 


3. Sets “pptiflg” to indicate file just open (=2) and 
places 10 in toutt entry for ppt input. : 


CALLING SEQUENCE - 
jmp oppt 


INPUTS. - 
pptiflg —~ used to determine if file already open 


OUTPUTS - 

pptiflg - set by oppt to indicate file just open 
ps - processor priority set to 5 

prs — contains reader enable bit 

toutt ti ~ contains count for ppt input . 

See outputs for getc - 
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ID U7-5 otty 


FUNCTION -—_ 
otty opens the console tty for reading or writing. The 
interrupt enable bits are set in the tks and the tps. If 
the console is the first tty opened in this ,process assign 
its buffer address to u.ttyp return through sret . 


CALLING SEQUENCE = 
{conditional or unconditional branch, or jmp] otty 


ARGUMENTS ~ 


INPUTS — a a 
see inputs for sret 
u.ettyp ~ points to the buffer header for the process control 
typewriter 
(tty+70.) - lower byte of 1st word of header contains the number 
of processes that opened the buffer 
tty+70. = contains pointer to the header of the console tty buffer 


OUTPUTS = 

u.ettyp — points to the console tty buffer header if it was the 
fst tty opened by the process. cherwise points to ? 

r5 ~- points to header of console tty buffer 

(r5) + lower byte (numser of processes that opened the buffer) 

incremented by ore. 
tXs = reader statue register interrupt enable bit set, rest of 
bits zeroed. 
tps - punch status register 
See outputs for sret 
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ID U7-2 pptic — paper Paue input control 


FUNCTION — | 
“pptic eeteaes the following functions for ppt input: 


16 If the error, busy and done bits are not set in the prs 
and the character count for ppt input in the clist is less 
than 30, pptic sets the reader enable bit. 


2. Uses “getc” to get character from paper tape input area 
of clist. If this area of “clist” is empty, a check is made 
to see if "pptiflg” is set equal to six (indication that 
error flag in pre is set during normal operation). If it 
is, return is made to the calling routine which in turn 
vreturns to its calling routine. If “pptiflg does not equal 
six, the process is put to sleep. 


CALLING SEQUENCE = 
jsex rO, pptic 


INPUTS < 


ect+2 — contains clist character count for ppt input 
prs = contains status bits for pot reader 
pptiflg — indicates conditicn of ppt file 


OUTPUTS = 


_ prs - contains reader_enable bit 
see outputs for ‘gqete” 


ps = processor priority set to 5 and then to 0. 
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ID U7-2 pptoe — paper tape output control 


FUNCTION - 


pptoc” first checks to see if the character count for ppt 
output in the clist is greater than 50. If it is, the pro- 
cess is put to sleep. If it isn’t “pute” is used to place 
the character which is in ri, in the clist. If the clist is 
full, the process is put to sleep. If the character is 
placed in clist, starppt is called to output the next 


entry in the ppt CueREr section of clist. 


CALLING SEQUENCE —- 
jsr rO, pptoc 


INPUTS - 
ce+3 = character count for ppt input in clist 


OUTPUTS — 
ps ~ processor priority get equal to, fluf . 
see outputs for "“starppt” and “sleep” and pute” 
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ID U7=3 put: 

FUNCTION — 
Takes a clist entry pointed to by r2, and makes it the last 
entry in the list identified by ri. 


If this is the first entry in a currently empty list then 
the first char pointer in cf is also updated. 


CALLING SEQUENCE = 
jsr r0, put 


ARGUMENTS ~ 

INPUTS — 
r1 (list identifier) 
r2 (clist offset) 


OUTPUTS . 
eclti(r1), clist-1(r2), of+1(r1) 
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ID U7=3 pute 


FUNCTION — ; , 
- Puts ai character at the end of a list identified by the 
argument in the putc call. ; 


In detail it takes a clist entry from the free list via call 
to get . Appends the entry to the list identified by arg 
via call to put . Then £ills in the new entry with a char- 
acter passed in ri. 


CALLING SEQUENCE — 
jsr rO, putc; arg 


ARGUMENTS —- 
7B) list identifier (see discussion in G on tty device 
I/O 


INPUTS <= 
r1 - character from device buffer. 


OUTPUTS + 


r2 ~- clist offset where character stored, cc(arg), 
eclist-1(r2) 
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ID U7-7 sysmount 


FUNCTION <- = 

sysmount announces to the system that a removable file 
system has been mounted on a special file. The device 
number ,of the special file is obtained via a call to 
getspl'. It is put in the I/O queve entry for the 
dismountable file system (sb1) and- the I/O queue entry is 
set up to read. (bit 10 is set). “ppoke is then called to 
reaG the file system into core, i.e. the first block on the 
mountable file system is read in. This block is the super 
block for the file system. This call is super user res- 
tri ected. ; 


CALLING SEQUENCE — 
sysmount; special; nami 


ARGUMENTS — 
special — pointer to name of special file (device) 
name - pointer to the name of the toot directory of the 
newly mounted file system. “name” should alwasy be 
a directory. 


INPUTS = 
mnti— records i-number of unique cross file device 
sp - containg the name of the file 
sbi ~ I/O queve entry for the dismomtahia file eyetem 


OUTPUTS —- 
mntio - jenumber of spectal file 
mtd - céevice number ae special file 


sbi - Nes Gevice number in Lleowar byte 
ae a 4 2 : oe a ee Late nao 
fiie ey .scem Lao vead ano core vila proke 
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ID U7-8 sysumount 


FUNCTION — 
sysumount” announces to this system that the special file, 
indicated as an argument, is no longer to contain a remov- 
able file system. getspl gets the device number of the 
special file. If no file system was mounted on that device 
an error occurs. mntd and mnti are cleared and control is 
passed to sysret. 


CALLING SEQUENCE - 
sysumount; special 


ARGUMENTS — 
special - special file to dismount (device) 


INPUTS - 
mntd —- device number of mounted device 
sb1 - I/O queue entry for the dismountable file system 


OUTPUTS = 
mntd —- zeroed 
mnti —- zeroed 
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ID U7-8 sysreta 
FUNCTION — See "sysret” routine 


CALLING SEQUENCE ~ 


ARGUMENTS — 


INPUTS ~ 


OUTPUTS — 
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ID U7-1 ttych 


FUNCTION - | 
ttych gets characters from the queue of characters input- 
ted to the console tty. If there are none, sleep is called. 
ttych works in the following manners 


4. the processor priority is set to 5 


2. a character is gotten off the queue via "gete” if the 
list is empty, sleep is called. : 


3. if not the process status is cleared and a return is 
made. 


CALLING SEQUENCE — 
fsx rO0, *(r0) ttych was an argument in the call to 
canon . : 


ARGUMENTS — 

INPUTS — 

OUTPUTS — 
ps = 0 


x1 =- character on top of list 
See getc number 7, page 2 for others. 
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ID U8-1 bread 


FUNCTION - | 
bread reads a block from a block structured device (rk, 
rf, tape). It operates in the following way: 


1. If “cold” =4 (cold boot) the block specified in ri, is 
read into an I/O buffer via preread . If its a warm boot 
(cold=0) the block in r1 ang the next consecutive block are 
read into 1/0 buffers via preread . The reason two blocks 
are read in is to speed up the overall reading process. On 
a cold boot, however, only two I/O buffers are available, so 
only one buffer us used. 


2e The block number is always checked to see if the maximum 
block number allowed on the device has been exceeded. (see 
argument ) If the block number does exceed the maximum, an 
error occurs. 


36 “preread” is called again on the first block. Since the 
first block is already in an I/O buffer, all preread will do 
is reverse the priority (see bufaloc H.8, page 9) so that 
the first block is of higher priority than the second. 


4. Bit 14 of the first block’s I/O buffer is set. 


5. Bits 10 and 13 (the read bits) of this I/O buffer are 

now checked. If they are set (reading is still in progress) 
and the device is disk or drum, or the device is tape and 
uquant £0 idle is called. If the device is tape and 
uquant = 0, sleep is called. If bits 10 and 13 are 0O 
(read done), bit 14 of the I/O buffer is cleared and the 
data is moved from the I/O buffer to the users area. 
Gioreg does the bookkeeping on the transfer. 


6. If u.ecount «0 the reading is finished. If not.a branch 
back to the start is taken and the above steps are repeated. 


7. A return is taken to the routine that called "readi”. 


CALLING SEQUENCE = 
jsr rO, bread; arg 


ARGUMENTS = 
arg — maximum block number allowed on device 


INPUTS — 
r2 - points to the users data area; r3 has the byte count 
(u.efofp) = is the block number 
cdev - is the device 
u.base — base of users data area 
uecount — number of bytes to read in 
ri - is used internally as the block number 
cold ~ 0 warm boot or 1 cold boot 
r5 — points to the beginning of the I/O buffer or the data area 
Uequant — time quantum allowed for each process 
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OUTPUTS — 
block or blocks of data into the users area starting at u.base 
(u.fofp) = points to next consecutive block to be read 
r3n0 — (used internally) 


Issue D Date 3/17/72 ID IMO.1-1. Section H.8 Page 2 


UNIX IMPLEMENTATION 


ID U8-3 dforeg 


FUNCTION - | | . 
@ioreg does the bookkeeping on block transfers of data. 
It first checks to see if there are more than 512 bytes to 
transfer. If so, it just takes 512. If not, it takes 
uecount. 


ARGUMENTS = 


INPUTS = 
uecount — number of bytes user wants transferred 
uebase — start of users data area 


OUTPUTS =- 
r3 ~ used internally to hold the count 
uenread — updated by adding r3 
uebase — updated by adding r3 
uecount ~- updated by subtracting r3 
r2 - has value of u.base before it gets updated 
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ID U8-2 bwrite 


FUNCTION - 
“pwrite’ writes on a block structured device (rf, rk, tape). 
It operates in the following way: 


4) The block number is placed in ri. 


2) If the block number exceeds the maximum allowable block 
number of the device an error occurs. 


3) (uefofp) is incremented to potne.: to the next block ‘in 
sequence, 


4) “wslot” is called to get an I/O buffer to write into. 


5) “@ioreg” is called to set up the bookkeeping for the 
transfer. 


6) The data is then transferred from the users area to ehe 
I/O buffer. 


7) "askwr” is called to write it onto the device. 


8) If u.count £6,the procedure is repeated. If it is, a 
return to the routine that called writei is made. 


CALLING SEQUENCE — 
jsr rO, bwrite; arg 


ARGUMENTS — 
arg - is the maximum allowable block number for the device. 


INPUTS — 
(u.fofp) is the block number 
edev - is the device 
ri - is used internally to hold the block number 
r5 =- points to the I/O data buffer 
r2 — points to the users data area; initially its u.base | 
uecount — number of bytes user desires to write 
r3 -— has the byte count 


OUTPUTS — 


(u.fofp) is the next block to be written into 
r3=0 (used internally) 
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ID U8—-7 drum 


FUNCTION -_ 3 

drum is the interrupt handling routine for the drum. drum 

is called after the transfer of data to or from the drum is 

complete iee., when the ready bit in the dcs (drum control 

register) is set. (see interface manual, page 73-74.) rt, 

xy2, x3 and clockp are saved on the stack (see setisp) calls 

trapt to check for stray interrupt or error. If neither, 

it clears bits 12 and 13 in ist word of transaction buffer, 

checks for more disk buffers to read into or write; then 
returns from interrupt by calling retisp. 


CALLING SEQUENCE = 


called by interrupt vector at location 204 after data 
transmission has taken place, i.e., ready bit of des set. 


INPUTS ~ 
same as setisp, trapt and retisp 


OUTPUTS = 
same as setisp, trapt and retisp 


CALLED BY — 
interrupt vector 


CALLS = 
setisp, trapt 
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FUNCTION -_ 


UNIX IMPLEMENTATION 


poke” performs the basic I/O functions for all block struc- 

tured devices. In order to understand the functioning of 
poke, the general handling of block structured I/O must be 
described. 


I/O on block structured devices is handled vja a collection 
of data buffers beginning at location buffer each buffer 


consists 


of a four word I/O queue entry followed by a 256 


word data buffer. 


An I/O queue entry has the following form: 


write 


bi t DS gee ED Se Ee eb eee RET: OEE AOD 


waiting to write bit 


waiting to 


inhibit bit 


byte 0 - 


byte 1 - 


bit 


| 
| 
1 
“} 7 f ¢ 4 
| 
9 


Ear he 


15 13 12 10 


ae 


7 


(¢) 
oom | 
device id | 


t eammelaaal 


physical block number 


word count (-256) 


PS CAPE DEE REPO SEED 


bus address 


eras REA SES ADE GEE LE LED EID EG SSL SY SP CT ID CRETE 


device id codes are 
0 = drum 
1 = disk 

other = dec tape 


write bit - when set indicates write the data in 
the buffer out onto the device identified in byte 
0. 


read bit — when set indicates read data off of the 
indicated device into the data buffer. 


waiting to write bit - if set indicates that a 
write operation has been requested but not yet ¢com- 
pleted. 


waiting to read bit — if set indicates that a read 
operation has been requested but not yet completed. 


inhibit bit - when set will delay request for 
operation indicated by write bit or read bit until 
cleared. 
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byte 2.3 =- physical block number (see Section F, discussion 
of file system) 


byte 4-5 - word count =~ number of words in buffer; loaded 
into word count register for device, 


byte 6-7 —- bus address —- address of first word of data 
buffer. 


In addition to the general I/O queue entries there are three 
special entries at locations sb0O, sbi, and swp. These are 
the I/O queve entries for the super block for drum (sb0), 
the super block for the mounted device (sb1), and the core 
image being swapped in or out (swp) <- these entries are ini- 
tialized in the allocate disk buffers segment of code in 
ud. 


An area in core starting at location “bufp” and extending 
nbuf + 3 words, contains pointers to the I/O queue entries. 
This table of pointers represents the priority of I/O re- 
quests, since poke scans these pointers starting at the 
highest address in bufp , examining the control bits in 
byte 1 of each I/O queue entry. pointed to by the bufp 
pointers. If either bit 9 or 10 is set and neither of bits 
15, 13, or 12 is set then poke will attempt to honor the I/0 
request. 


To honor an I/O request, poke checks "active to see if the 
bit. associated with the device is clear. If it is clear 
poke initiates the I/O operatioms by loading the appropriate 
device registers. In all I/O operations the interrupt is 
enabled and thus when completed an appropriate routine is 
called via the interrupt. When poke initiates a I/O opera- 
tion it clears bit 9 or 10 and sets bit ‘41/2 or ‘%2./5 The 
routine called upon completion of the 1/0 operation will 
clear bit an or 42 thus freeing that I/O queue entry. 


“poke” Calculates a physical disk address (which is loaded 
into register rkda) from the physical block number in the 
following way: 
let N = physical block number 
then) 
sector number = remainder N 


12. 
surface = 0; quotient N_ even 


12. 
$ quotient N odd 


12. 
cylinder = quotient quotient N /2 
12. 
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“poke” calculates a physical disk address for the drum from 
the physical block number in the following way: 


The drum address is given in the dae and dar registers. 


1 0 15 11 10 0 


dae { ae | | dar 
1] 
] 


track word 


The physical block number is essentially multiplied by 256 
(by shifting the low order byte into the high order byte of 
the dar, and shifting the high order byte into the low order 
byte of the dae. 


CALLING SEQUENCE — 
jsx rO, poke 


ARGUMENTS — 

INPUTS — 23 
buffer pointers, 
I/O queue entries 

OUTPUTS — 


sets bits 12 and 13 on I/O queue entries where I/O operation 
is initiated, 
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ID U8-5 bufaloc 


FUNCTION — | . 

bufaloc scans the I/0 buffers for block structured dev- 
ices, looking for an active buffer (bits 9,...15 of the 1st 
word in the I/O queue entry for the buffer are set) which 
has already been assigned to the block number and device 
currently under consideration, or for a free buffer (bits 
9,0e¢15 not set) which has been previously assigned to this 
device and block number. If there is no such buffer, the 
vacant buffer with the highest core address is assigned. If 
no free buffer is found, bufaloc calis jdle. Eventual- 
ly, a buffer is located. The routine poke which actually 
performs the I/O operations scans the bufp area of core 
from the highest to the lowest address. Thus the priority 
of an 1/0 queve entry is established by where a pointer to 
the I/O queue entry appears in bufp. 


The, newly assigned buffer I/O queue entry pointer is placed 
in bufp thus making it the lowest priority, I/O operation 
in the queue. The other entries in bufp are moved into 
higher addresses to accomodate the newly assigned buffers 
I/O. queue entry pointer at location bufp. 


Once the buffer has been assigned the device number is put 
into the low half of word 1 of the corresponding 1/0 queue 
entry and the block number is put into word 2 of the 1/0 
queue entry. 


CALLING SEQUENCE ~ 
jsr r0, bufaloc 


ARGUMENTS = 

INPUTS — 
cdev, ri (block aired bufp+2*n-2, (bufp+2*n-2), 
(bufp+2*n-2) F2tNxl, cos enbuf 

OUTPUTS 


rS (pointer to buffer assigned), bufp,.e.,bufp+i2, (bufp), 
(bufp)+2,ps 
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ID U8~-3 dskrd 


FUNCTION — | | 
dskrd acquires an I/O buffer, puts in the proper I/O queue 
entries (via bufaloc) then reads a block (number specified 
in r1) into the acquired buffer. If the device is busy at 
the time dskrd is called, dskrd calls idle. Once the 1/0 
operation is completed r5 is set to point to the first data 
word in the buffer. 


CALLING SEQUENCE <= 
jer rO, dskrda 


ARGUMENTS = 
INPUTS = 


OUTPUTS — 
r5 — pointer to first word in data block; (r5) ; ps 
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ID US-3 dskwr fo} 
mf Le! | 
FUNCTION = | 
dskwr writes a bl out on disk, via ppoke. The only 


thing dskwr does is get} bit 15 in the first word of the 1/o 
queve entry pointed to by bufp . wslot which must have 
been called previously has supplied all the information 
required in the I/O queue entry. 


CALLING SEQUENCE — 
jer r0O, daskwr 


ARGUMENTS — 
INPUTS — 


OUTPUTS — 
(bufp) 
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ID U8-3 error 10 
FUNCTION = See "error routine 


CALLING SEQUENCE — 


ARGUMENTS = 


INPUTS = 


OUTPUTS = 
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ID U8-3 preread 


FUNCTION — 


preread” is called by “bread” to read in a ,disk block on 
device cdev . The block number is in rt. preread gets a 
free I/O buffer via bufaloc . It sets bit 10 of the first 
word of the I/O buffer and then reads the specified block 
into the I/O buffer via poke. If the I/O buffer already 
contains, the specified block bit 10 is not set and the call 
to poke is skipped. The processor status is then cleared. 


CALLING SEQUENCE —- 


jsr rO, preread 


ARGUMENTS - 


INPUTS — 


r1 - block number to read 
x5 — points to first word of I/O buffer 


OUTPUTS = 


specified block into an I/O buffer 
ps = O 
r5 - points to first word of the I/O buffer 
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ID U8-1 rtap 


FUNCTION —, 


rtap is the read routine for dec tape. The device number 
is (i-number/2)-4. The i-number is in ri upon entry. 
“pread” is called to read the proper block or blocks. 


CALLING SEQUENCE — 
from jump table in readi 


ARGUMENTS — 


INPUTS = 
ri - is the i-number of the special file 


OUTPUTS — 


ecdev is the device number 
see outputs for “pread”. 
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ID U8-6 tape 


FUNCTION —_ a 2 

tape handles the dec tape interrupts. setisp is first. 
called to save registers and the tlockp. The state of the 
dectape (testate) iee., reading, writing, idle, ete. is put 
in r3. trapt is then called to check for data transmis-= 
sion errors. If none occur control passes to the appropri- 
ate dec tape routine depending on what the stat is. Control 
is passed by putting r3 in the pe. If an error occurs a 
jump to taper is made. 


CALLING SEQUENCE — 
interrupt vector 


ARGUMENTS = 


INPUTS — 
testate — the state of the dec tape (read, wri’e, etc.) 


OUTPUTS — : Be 
control passes to appropriate dec tape routine 
pe — set to address of above routine 
r3 - is used to hold the address of above routine 
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ID U8-8 trapt 
FUNCTION - 


trapt” is part of the drum, disk, or dec tape interrupt 
handler. The ready bit of the device control register is 
checked. If the ready bit is not set the device is still 
active so a return through “retisp is made. It then wcnecks 
to see if a stray interrupt has occured. If not, “trapt- 
checks to see if an error in the data transmission has oc- 
cured. If so, the return is skipped. If not, the return is 


not skipped. The return is via a jmp. 


CALLING SEQUENCE =< 
jsxr rO, trapts; dv; buf; act 
br normal 
br error 


ARGUMENTS — 
adv - device Geatxel status register (£0r dec txpe it is 
the command register) 
buf - contains address of disk buffer being read into 
or written 
act -. tested against the bits in “active to see if the 
device was busy 


INPUTS - 
active — contains bits that tell which devices are busy 


OUTPUTS — 
r1 — points to the disk buffer 
r2 — points to the device control and statusvregister or 
command register depending on. the argument. 
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ID U8-2 tst deve 


FUNCTION — . 
tstdevce. checks to see whether a permanent error has oc- 
cured on special file 1/0. (It only works for tape, 
however.) If there is an error, the error is cleared and 
the user is notified. 


CALLING SEQUENCE — 
jsr r0, tstdeve 


ARGUMENTS - 


INPUTS — 
cdev - the device in question 
(cr1 )+deverr — the device’s in question error indicator 


OUTPUTS — 
ri = cdev s the device number 
If no error, nothing else happens 
If error, (r1) + deverr gets cleared and user notified 
via error 10. 
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ID U8=3 wslot 


FUNCTION = | = e 
wslot calls bufaloc and obtains as a result, a pointer 
to the I/Q queue of an I/O buffer for a block structured 
device. “bufaloc” has inserted into thig I/O queue the dev- 
ice number and block number which wslot passes from its 


caller to bufaloc’. 


It then checks the first word of the I/O queue entry. If 
bits 10 and/or 13 (read bit, waiting to read bit-sec H.8, p. 
5) are set, wslot calls idle. : 


When "idle" returns, or if bits 10 and/or 13 are not set, 

wslot” sets bits 9 and 15 of the first word of the I/0 
queue entry (write bit, inhibit bit), sets the processor 
priority to zero, and sets up a pointer to the first data 
word in the I/O buffer associated with the I/O queue. 


CALLING SEQUENCE — 
jsr rO, wslot 


ARGUMENTS — 


INPUTS - = w 
See inputs for bufaloc -— He8 pe 1 


OUTPUTS = : 
(bufp) - bits 9 and 15 are set, the remainder of the word 
ie left unchanged 
ps - 0 _ 
r5 - points to first data word in I/O buffer 


See outputs for “bufaloc” — H.8 Pe 12 Note that outputs given 
above take precedence over outputs from bufaloc 
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ID 09-6 revch = receive character 


FUNCTION — | . 
“revch” uses “gete” to read a character from the tty’s read 
section of the clist. If it is empty, the process is put to 
Bleep. When the process is awakened, rcvch again tries to 
obtain a character from clist. . 


CALLING SEQUENCE — 
jsr r0, revch 


INPUTS = 
r2 —- contains 8xtty no. 
mcesr + &xttyn - carrier detect and clear data term bits 
See inputs for “gete and “sleep” ° 


OUTPUTS ~ 


ps =~ set processor status to,5 
See outputs for "sleep and "getc” 
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ID U9-6 revt —- read tty 


FUNCTION = 
rev$ places tty characters in the user buffer area. If 
the raw flag in the tty area is set a character is ob- 
tained from the tty’s input area of clist. If the flag is 
not set, canon is used to process a line of tty characters 
and place them in the users buffer area. 


CALLING SEQUENCE = 
jmp revt 


INPUTS —- 
r1 - contains 2xttyno. 
recsrt8xttyno — carrier detect and clear data term bits 
ttyt8xttynot+6 — pointer to tty buffer 
tty+8xttynot4 - raw data flag | 
See inputs for canon , passc , gete and revch 


OUTPUTS — 
ps ~ set processor priority to 5 e 
See canon , passc , getc , rcvch and 
Sleep outputs. 
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ID U9-3 starxmt 


FUNCTION — 


” 


starxmt does the following: 


16 checks to see if the output character count for_the tty 
in clist is less than 10. If it is, “starmxt” uses “wakeup 
to wakeup the process identified in the “wlist entry for 
the tty output channel. 


2e Checks to see if the toutt entry for the tty output is 
equal to zero. If it is not, control is passed back to the 
calling routine. , 


3e Checks to see if the ready bit in the tty’s tscr regis- 
ter is set. If it is not, control is passed back to calling 
routine. 


4. Checks 3rd byte of tty’s “tty” area (contains character 
left over after 1f.) for a null character. If the byte con- 
tains a non null entry, the entry is used as the next char~ 
acter to be output. If the entry is nul, the next character 
to be output is obtained from the clist via getc . 


5. Adds 200 to ASC11 code of character to be .output if 
@igit 2 (far left digit) of entry in partab” table for 
character is a “2” ° 


6.° Checks tty’s resr buffer to determine if carrier is 
present. If it is not, the character is “dropped” and a new 
character is obtained by returning to the beginning of the 
subroutine. If the carrier is present a check, is made to 
determine if the character tg be output is “nt”. If it isa 
check is made to see if the “tab to space” flag (bit 1 of 
5th byte in tty area) is set. If it is the character to be 
output is changed to a space (ASC11 40). 


7Z- Places character to be output in tty’s *"tcbr” buffer. 
“starxmt” then does one of the following dependent on the 

gharacter to be output (digits 0 and 1 of the characters 
partab entry are used as offsets into jump table). 


Ae For ASC11 codes 40-176, increments column pointer 
which is in byte 2 of tty area. 


be For ASCi1 codes 0-7, 16-37 and 177, does nothing. 
Ce. For ASC11 0 10 (bs), decrements column pointer. 


@- For ASC11 012 (1£), checks for setting of cr flag 
(bit 4 of 4th byte in Rao Rage If it is set ASC11 
015 (cer) is placed in b 3 of “ety area (character 
left over after line ,reed Rc ecet then determines 
value for the tty’s output entry in the tout table. 
This valye js dependent on whether lf” is to be output 
or both lf and cr. 
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e. For ASC11 011 (ht) does some ,fooling around with 
column count and 3rd byte of tty area (character left 
over after 1f) dependent on value of tab to space 
flag in Sth byte of tty area. It then determines 
value for the tty’s output entry in the tout table. 


f. For ASC11 013 (vt), determines value for the tty’s 
output entry in tout table. 


ge For ASC11 015 (cr), determines value for the tty’s 
output entry in tout table and sets column pointer = 0. 


CALLING SEQUENCE - 
jsr r0, starxmt 


INPUTS — 

(sp) + contains Sxtty number , 
tty+3+8xttynumber - contains offset in cc, cf, and cl lists for tty 
ec+(tty+3+8xttynumber)+1 - contains character count for tty 

output in clist 

tty+1i+8xttynumber ~- contains column pointer for tty 
tty+2+8xttynumber - contains character left over after lf 

for tty 

tty+4+8xttynumber —- contains flags for tty 


See outputs for "getc”. 


resr+8xttynumber — contains carrier present flag for tty 
tesr+8xttynumber — contains ready flag for tty 


OUTPUTS — ae ee 
See inputs to getc 
ect+(tty+3+8xttynumber ) 
ttyt1+8xttynumber see inputs above 
tty+2+8xttynumber 
tebr+8xttynumber — contains character to be output on tty 
toutt+3+ttynumber - contains tout entry for tty 
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ID U9=- xmtt 


FUNCTION —, = es 

xmtt’ uses cpass to obtain the next character in the 
user’s buffer area. If the character count for the tt 

(identified by i-node number of tty’s special file in stack 

is gxeater than, 50, the process is put to sleep. If not, 
xmtt uses putc to determine if there is an entry avail- 
able in “freelist portion of clist . If there is, putc 

places the character there and assigns the location to _ the 
tty, portion, of clist -, If there is no location available 
in "freelist portion of clist , the process ~tS put to 
sleep. If there is a vacant location, starxmt is used to 
attempt to output the character on the tty. Upon return 
from starxmt the next character is obtained from the 
user’s buffer area. If the buffer is eppty, ,control is 
passed back to the calling, routine via cpass . When the 
process is awakened by awake , it trys again to find a 
location available in freelist and a character count for the 
tty output less than 50 so it can output characters. 


CALLING SEQUENCE - 
jmp xmtt 


INPUTS = a! = 
See inputs for cpass - = 
(sp) - contains i-number of tty’s special file 
ri — contains character to be placed in clist uponvreturn 
from cpass 


OUTPUTS = 


See inputs for “starxmt” and “pute” 
processor priority set to 5 
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